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I. 


INTRODUCTION 


This report presents results from a series of diversified 
calculations using mathematical models developed during Contract 
No. 951946 to the Jet Propulsion Laboratory (Reference 1) . These 
models resulted in two basic computer programs describing two- 
dimensional time dependent hydrodynamic motion of a reacting 
system. A pancake model is used to compute the motion of a gas 
dynamic field in the transverse plane of an infinite cylinder 
while the second model, an annular model, describes the gas dynamic 
motion in an annular field bounded by a fuel injector plate and a 
subsonic-supersonic nozzle. The independent coordinates of the 
pancake model are r-6-t while the independent coordinates of the 
annular model are z-e-t. 

In addition to using the above models several additional 
programs were written to supply calculational ability for some of 
the problem areas that required specialized techniques not avail- 
able in the two basic computer programs. Here we are referring 
to the blast measurements of J. M. Bonnell (Reference 2) . 

The first section of this report describes the tactics used 
to compute a blast wave in the transverse plane. Two calculations 
were attempted. The more difficult is a complete two-dimensional 
time dependent calculation of a blast center located near the per- 
iphery in the r-6 plane - the second was a calculation of a blast 
center located at the geometric center of the r-8 motor. The 
second calculation is compared to the experimental work of Bonnell. 
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The second section describes computer experiments performed 
with the pancake model for finite amplitude waves of the first 
transverse mode (sloshing) . A second interesting calculation 
perturbs the finite amplitude transverse model by introducing 
solid body rotation corresponding to a small part of the total 
energy of the system. 

The last section describes computer experiments carried out 
with the annular model. Here finite amplitude waves are allowed 
to interact with a droplet field that is adding energy to the 
system. Two types of finite amplitude disturbances are considered 
- solutions to the wave equation in e-z-t coordinates and local- 
ized pressure disturbances called "pops". 
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II. BLAST WAVE CALCULATIONS 


The problem of building stably operating liquid propellant 
rocket engines, engines which do not exhibit the spontaneous 
appearance of large amplitude pres’sure' waves , is still pertinent. 
One of the methods used to rate the stability of a given rocket 
engine configuration is to try' to '"’trigger" the steady flow field 
into a resonance condition by detonating a certain measure of 
explosive. Larger and larger weights' of explosive are used in a 
progression of tests- until a sustained oscillation results. 
However, once the test goes beyond a defined size of explosive 
bomb, one may not be interested in the results since that arti- 
ficially induced oscillation would result from a disturbance that 
would occur with only a small degree of probability. Such dis- 
turbances might occur naturally through the random generation of 
exceptionally large slugs of fuel. Although the position at 
which such explosive pockets appear will be random, the generation 
of the resulting sustained oscillation does not appear to depend 
in any fundamental way on the driving source. 

The tests described in Reference 2, Table I are the main 
concern of this section. Bonnell ignited a bomb on the axial 
centerline of a cylindrical chamber 5.523 inches in radius. 
Measurements were taken of pressure at specified positions along 
a radius. The time of arrival of the leading edge of the disturb- 
ance was recorded. From this primati-ve data he derived secondary 
information about velocity and Mach number of the shock wave. 
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If assumptions are made as to the se'l'f— similarity of the 
motion and as to the blast geometry — cylindrical or spherical - 
the similarity parameter energy per. unit of density can be derived 
from radius-time measurements. The usefulness of obtaining such 
a quantity is related to the . question of estimating the energy 
release of the explosive generating . the blast. This is of extreme 
importance in nuclear blast measurements. In rocket motor cal- 
culations it may lead to an estimate of the necessary magnitude 
of energy slugs needed to trigger instability. The formulas used 
by Bonnell to estimate these energy levels were derived under the 
assumption that the pressure ratio across the shock tended to 
infinity,, i.e., infinite shock strength or equivalently the pressure 
in front of the shock p^. = 0. In this sense, the spherical 
formulas 

2/5 _3/2 • 

R = const * t , S - const ♦ R ' (2.1) 

and the cylindrical formulas 

1/2 _ n 

R = const * t S = const • R x (2.2) 

are exact solutions to the one-dimensional blast wave problem. 

Here R and S are the shock wave radius and velocity respectively. 
Each of the above constants depends only upon the ratio E/p , 
where E~E Q the total blast energy and p 1 the density of the fluid 
into which the shock is propagating.. 
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In the smooth part of the^-f low field the flow is determined 
by the equation of mass, momentum and energy, or entropy conservation 
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The last equation .expresses the. -fact that the entropy of a particle 
is constant in the. space time field.; The index v = 3 for spherical 
symmetric flow, -v = .2 for cylindrical symmetry and v =. 1 for plane 
flow. 

The smooth part of the flow is connected to the constant state 
with sound speed a^, into whi ch the shock is propagating with 
speed S through the Rankine-Hugoniot conditions 
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The intense explosion limit a^/S+O yields the familiar value 
for the density discontinuity p 2 /p -j^y+l/y-l . 

The fundamental parameters are r , t,p^,p ^ 7 E with E a constant 
whose units are energy per unit area in the spherical case, energy 
per unit length in the cylindrical case- and the energy in the 
plane case. If one considers the non-dimensional number 

5/6 

_ P x t 
e 1/3 p 1 V2 

that can be formed from the fundamental parameters of the problem 
then in the limit as t,p^0 we see that t vanishes when compared 
to a second dimensionless grouping given below. 

It is possible to introduce another dimensionless parameter 
X such that 


X /~\ 1/ (2+v) 2 /(2 +v) (2 * 5) 

•]/ t 

We can arbitrarily set X = 1; then Equations {2.1) and (2.2) 
follow by setting v = 3 and v = 2 respectfully. Here when X = 

R = r is the position of the shock while r = dr/dt = S is the 
shock speed. 

We wish to carry out all our computations in the trans- 
verse plane of a right circular cylinder, and since it is reasonable 
to assume that the explosive will behave as a linear charge at 
least for small time. Equations (2.3) with v = 2 become 
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We now use the relation 
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to replace the System (2.6) by 


(t+u) p r /p + u r = - u/r 
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These equations may be rewritten as the system 
-Y (S+u)u/£(S+u) 2 -y p/p] r 

P r /P = 

1 

P r /p “ y p r/ p (2.8) 

u r /u =-- - (S+u) p r /pu 
r 

where we have used S = f = — = i £ from Equation (2.5) . 

dt 2 t 
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The problem of computing a blast wave then consists in fixing 
the shock radius and computing the shock speed. This will be 
discussed later on. The jump conditions, Equations (2.4), are 
used to determine the conditions on the boundary of the smooth 
part of the flow. Equations (2.8) use these values as starting 
conditions (to be substituted on the right hand side of (2.8)) . 
Integration of System (2.8) proceeds until r-*0 . The condition 
u(r)=0 at r=0 is satisfied. This calculation then is used to 
compute 

P (r) , p (r) and u(r) 0<x<x o 

where r^O . 2 * r chamber. The values of p (r) , p (r) and u(r) 
r 0 £r£r chamber are the quiescent conditions given in the tests of 
Reference (2). This calculation defines a time t 0 =r 0 /S which is 
the time when the calculation is continued by program COMB (Ref. 1) . 
In actual operation it was found that a more practical approach 
was to modify COMB to take into account the polar symmetry of the 
calculation. Hence for bombs located at the geometric centerline 
of the combustion chamber, in which the tangential velocity com- 
ponent vanishes, a special version of COMB is used. 

This approach differs from the approach taken by Goldstine 
and Von Neumann (Ref. 3) in their paper on the calculation of 
blast waves. 

The main difference between our approach and Reference (3) is. 
that the latter paper maintains the sharp discontinuity of the 
blast wave by iteratively satisfying the coupling between the 
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jump conditions across the- .discontinuity and the differential 
equations behind the discontinuity. Our approach allows the ' 
shock to be smeared by the difference equations but preserving 
the proper shock strength and propagation velocity, i.e., the 
.correct jump conditions. Of course, the same difference equations 
are used to compute the smooth flow field behind the shock. The 
difference equations for the complete two-dimensional time dependent 
problem are given in Reference (1) . By reprogramming, only one ray 
is used in the code for the case when the tangential velocity com- 
ponent vanishes. When the' blast center is not at the geometric 
center of -the chamber, a self-similar calculation would only be 
valid until the shock, wave was reflected from the chamber wall. 

For the conditions of this .report that would be the instant t 0 . 
Hence, except for the initial condition calculation described 
above, the entire calculation must be a two-dimensional time 
dependent one with symmetry about the angle e=6 0 , the centerline 
of the bomb, and with no simplification due to self-similarity of 
the fluid, field. 

In essence, the method that is described above was a successful 
computational algorithm. The pressure gradients that are generated 
from the bomb blast were extremely large. In order to compute 
the resultant time dependent motion, due to the blast, a finer 
mesh than that required for the calculations in Reference. (1) was 
built into the code. Whereas 10 to 20 grid points in the radial 
direction were used 'in COMB, this calculation required up to 500 
zones . 
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The main results of cold bomb tests presented in Reference 
(2) are contained in Table l.of that report. Figure (1.1) shows 
comparison between Test 3 of Reference (2) and several sets of 
initial data. It was found that if System (2.8). were integrated 
subject to the condition that the pressure ratio p-^/p(o)=20, where 
p(o) is the pressure at r=0 the resultant pressure levels behind 
the shock were too low at the initial portion of the calculation 
and there was little decay in the shock in the latter stage up to 
the point at which the shock strikes the chamber wall. If one 
took p-^/p (0 . 681) =20 as the boundary condition, the resultant 
pressure ratio- as a function of radius is shown in the upper curve 
These two conditions are met by choosing the proper starting shock 
strength S. By using the shock conditions (2.4), the initial data 
for Equations (2.8) is obtained and integration proceeds until the 
desired pressure ratio is achieved. This procedure can be used 
iteratively to construct the desired pressure ratio. 

Figure (1.1) shows the calculation of three shock waves of 
strength p 2 /p-L = 5,15 and 20 for a 9.02 inch radius .chamber. This 
pressure ratio is measured at r=1.0 inch. The s.elf-similar solu- 
tion is shown in solid line while the time dependent numerical 
solution that follows are in dashed lines. At this writing it is 
not clear why the upper curve has a break. It is related to the 
problem of generating insufficient printouts of - data concerning 
the maximum pressure ratio versus distance and time that was 
generated by the program. Figure (1.2) is for a 5.52 inch chamber 
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It eliminated the problem of Figure (1.1) because more closely 
selected points were chosen. In this case data was available 
from Bonnell for the cold chamber bomb case and can be compared. 

It appears that the case p 2 /P]_ = 15 is a reasonable fit to the 
data. In Figure (1.3) the wave arrival times are compared. Our 
curves are for actual arrival times while Bonnell used an average 
value over an inteval. Table (1) are computed arrival times for 
the 9.02 inch- motor. 

The calculation of a bomb pulse placed near the. chamber walls 
was not attempted due to the rather large storage requirements 
that were required even for the one- dimensional problem presented 
above. • However, the listing of the, code for the eccentric bomb 
is included in the appendix. ''The approach used, to generate the- 
initial data' is the main difference between the two bomb codes. 

For the eccentric code the initia'l data is generated by the 
following procedure. 

A table of values for the density, pressure and radial 
velocity as functions of radial distance from a bomb center are 
given. These values are for a coordinate system located at the 
center of the blast, and hence, the tangential velocity is 0. 

This bomb center is placed at a given point (r,e) of the chamber. 
The maximum radius, r„, of the blast is 1/5 the radius of the 
chamber. 
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Conditions in the coordinate system of .the chamber are 
obtained as follows. If a point is a distance greater . than -r^ 
from the center of the blast, it is assigned the initial conditions 
of the undisturbed gas. If it is within a distance r B of the 
center of the blast then the density., pressure, and radial velocity 
at the point in the coordinate system of -the blast are found by 
linear interpolation along the radius from the given tables. The 
pressure and density are scalar quantities and- hence independent 
of the coordinate system. The velocity (u,v) in the -coordinate 
system of the motor is found by transforming the .velocity (u,v) 
in the blast coordinate system to a cartesian coordinate system 
with the same center. The cartesian velocity (u 1 ,v' ) remains the 
same when the center of the coordinate system is translated to 
the center of the motor. The velocity (u' ,v') is then transformed 
to the polar coordinate system with center at the center of the 
motor. The formulas that are used relating the above quantities . 
are given by System (2.9): 

u' = u cos IT - v sin 0 = u cos e 


v* = u sin 9 + v cos e = u sin-0 
u = u' cos 9 + v' sin 8 


(2.9) 


v - u' sin 6 + v’ cos 0 
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TABLE 1 


Shock Wave Arrival Times for 
9.02 Inch Motor (Microseconds) 


V P 2 

5 

15 

20 

R, inches 




3.15 

— 

— 

65 

3.681 

155 

91 

79 

5.0 

— 

157 

115 

6.0 

269 

— 

141 

9.02 

418 

251 

225 
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III. FIRST TRANSVERSE 1 MODE INTERACTION - 

In this section we describe a calculation of the motion of a 
transverse pressure wave in the plane z=constant of a right cir- 
cular cylinder. The value of the maximum pressure is initially 
450 psia while the base chamber pressure is 300 psia. The basic 
set of partial differential equations that are solved by j finite 
differences are 

P-t- + — (rpu) + i (pv) o = 0 (3.1) 

u r x r B 

<pu) t + - (r. (pu 2 +p) ) + ~ (puv) = P +pv . 

11 r r r 6 r (3.2) 

(pv). + i (rpuv) + ~ (pv 2 +p) = (3.3) 

r r r x 6 r 

E t + i((E+p)u) r + 1. ((E+p) v) Q =0 (3.4) 

Here p, u, v and E are the mass per unit volume, the radial velocity 
component, the. tangential velocity component and the total energy 
per unit volume, i.e. 

E = p (e+^s (u 2 +v 2 ) ) 

The pressure p is- related to the specific internal energy e by 
the equation of state 

p = P (e,p ) 
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We expand Equation (3.2) by carrying- out .the indicated 
differentiation, i.e. 


pu t + up^ + . . . 


and subtract Equation (3.1) premultiplied by u from the above to 
obtain 


u t + 





(3.5) 


The same procedure is applied to Equation (3.3) with v replacing 
u when Equation (3.1) is premultiplied. The tangential momentum 
equation takes the form 


v t + uv r + J v e - -jrV ¥ (3 - 6> 

The continuity equation can be expanded by performing the indicated 
differentiation and collecting the terms in the following way 




v 

r 



1 3 (ru) 
r ar 


+ 


i ) 

r de J 


o 


(3.7) 


The operator in the first parenthesis is the substantial or 
particle derivative in polar coordinates the second term is 

the divergence of the fluid velocity in polar coordinates. Now, one 
writes the variables as the sum of a mean value and perturbation 
value 

p = p + p ' 

P = P + P 1 

(3.8) 

u = u + u' 

V = V + V 1 
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and substitutes these values into. Equations ( 3.5) , (3.6), and 
(3.7). We take the value of u=v=o which implies that the state 
about which the perturbation occurs is a state of rest. The 
perturbed quantities, designated by primes, is assumed to be much- 
smaller than the average quantities denoted by the bars. Under 
this assumption, we neglect quantities of second order in smallness 
so that Equations (3.5), (3.6) and (3.7)- become 



where div is the divergent operator defined from Equation (3.7). 
Equations (3.9) and (3.10) state that the components of the per- 
turbed velocity vector u is given by the gradient of the scalar 
perturbation pressure p 1 . The entropy of the system is constant 
which means that the curl of the perturbed velocity vector is zero.' 
This implies the existence of a potential such that 

u 1 = v' = — ip (3.13) 

r r 0 
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Then the perturbed pressure given from Equation (3.12) becomes 


i — 2 2 

• P t = “ P C 7 * 

where 

= (* rr ’ + h + ^0 0 ) 

r^ 


(3.14) 


Comparing Equations (3.13) with Equations (3'. 9) and (3.10) 
we conclude that 


*t = 



or 



which together with Equation (3.14) results in the wave equation 
for the potential rjt : 


ip = c 2 V 2 i|> (3.15) 

This equation is subject to the boundary condition of the vanishing 
of the normal velocity. 


ip r = 0 (3.16) 

on the boundary of the region in which Equation (3.15) is- defined. 

The solution to Equation (3.15) subject to condition (3.16) 
is 

ij; = £ e J-i (kr) sin (kct) cos e (3.17) 

k 
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with the constant k determined from the condition 

— Jt (kr) =0 on the boundary 

ar i 

The parameter e is used to control the amplitude of ip . The 
prescribed initial data derived from Equation (3.17) is: 

P = P + P' = P" P* t 

= p {l-yeJ 1 (kr) cos (kct) cos 6) 

(3.18) 

u = u' = = ce J-^. .(kr) sin kct cos 0 

r r 

V = v 1 = — = ~ ce J 1 ^ r ) s i n kct s j_ n 9 
r 0 kr 

The initial conditions are defined at time t=0. ; hence the 
first transverse mode- is initiated . by defining the fluid field 
by allowing t'to be zero in System (3.18) to obtain 

p(r,0,t) = p (l-eTJ^(kr) cos 6) 

u(r,0,O) = v (r,8,0) = 0 (3.19) 

(r , 0 ,t) = p (r , 0 ,t) 1 /y 

The pressure and density conditions of System (3.19) are shown 
plotted in Figure (2.‘1) .- One could have started the calculation 
with the equivalent system . 
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p(r ,8 = P 

2kc 


(r , 9 
v (r ,6 
p (r, 0 


11 ) 

'2k5 ; 

* ) 
’ 2kc 

,-L-) 

2kc 


ceJ 1 (kr) cos 0 
x r 


- Jt (kr) 

= -ce _ — sm 0 


kr 



(3.20) 


In following the time dependent behavior of the pressure and 
density field of system (3.18), after a time inteval At=n/2kc 
they translate to that of system (3.20) , i.e., these two apparently 
different specifications just specify the same transverse motion 
at somewhat different times. 

The next sequence of figures show the time dependent history 
of the first transverse (sloshing) mode with a finite amplitude^ where 
e=0.5 and y= 1.2. The Figures (2.1) to (2.30) are selected print- 
outs of the calculation. There is complete symmetry about 0=0 
and tt for the duration of the calculation out to 2000 cycles and 
corresponding to about 1.5 milliseconds of real time motion of the 
flow field. There is no indication of any net rotational motion 
appearing up to the point at which the calculation was terminated. 

The calculation shows that pressure variations induce a velocity 
field which is seen by following a particle path as in Figure 
(2.19). The important thing to notice is that the scale in y(6=0) 
~10“ 5 . Hence, since the range of motion in x is like 0.1, the 
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streakline plots indicate purely one-dimensional motion. As 
Figure (2.25) indicates, the peak pressure on the chamber boundary 
is almost -4.60 psia, very close to the starting value. This indi- 
cates, at least in the absence of shock waves, that the follow 
will continue to oscillate interchanging potential energy in the 
form of pressure with kinetic energy and back again. 
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The first tangential (sloshing) mode (with e=0.5, y=1.2) was 
recomputed using the differential equations (3.1), (3.2), (3.3) 

and (3.4) in which, however, the right hand side of the continuity 
and energy equation were modified by a mass source and an energy 
source. The source term itself is modified to include a simulation 
of axial outflow by the method outlined in Reference (2) , page 25. 
The combustion model used was also presented in Reference (2) and 
appears in that report under Section E - The Reduced Godsave 
Analysis. The plots resulting from this calculation have not been 
included in this report since they are similar to Figures (2.1) 
through (2.30). However, the following table gives the comparison 
in peak pressure measured in the flowfield with and without com- 
bustion present at constant intevals of cycle count. As the table 
shows the maximum pressure levels with combustion are somewhat 
larger than those in which the flow field spins without interaction 
with the droplet spray. 
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TABLE I 



Cycle 

No 

Energy 

Time 

Count 

Energy 

Modified Godsave Model 

Miilisec 

0 

' 450 

450 

o.< 

200 

430 

435 

.280 

400 

462 

510 

.526 

•600 

566 

561 

.774 

800 

495 

522 

1.02 

1000 

404. 

. 405 

• 

• „ 

1.26 

• 

1600 

380 .(taken at 

• 

50-9 

1.98 


2000 cycles) 


The calculation with energy input went unstable at 1600 
cycles which corresponds to a physical time of almost 2 millisec. 
The instability is numerical and is related to the approximate 
method used in simulating a time dependent axial flux. It is 
necessary to include such a term in the calculations so that 
energy and, therefore, the pressure levels do not grow unbounded. 
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The initial conditions for the next, calculation were a slight 

modification of the first transverse (sloshing) mode. In that 

« * ' f * * 

1 * _ „ * ^ - \ • t\ . 

calculation the tangential velocity 'component was 'v(r,8)=0 at t=0. 
In this calculation a small amount of solid body rotation is intro- 
duced at t=0 . The tangential velocity component for pure solid 
body rotation is v=cor, where. >co is the- angular velocity. We compute 
the value of to by 

u ) 2 = k IZ E ii / 

i j J i j 

The constant k is the fraction of total initial energy in the 
field, given by the numerator, that will appear as the initial 
rotational energy. For Figures (2.31) to (2.82), k=0.01. 

The value of pressure p = 313.5 psia, chamber radius R=5.52 
inches and e=2/3. 

As one views these Figures, the most striking difference that 

* ! . 

appears in the wave motion (as in Figure (2.39)) is the large 
pressure level -760 psia that appears during the'iftitial transient 
and the persistence of a pressure wave which has a‘ fairly constant 
tangential structure over an arc of about tt/2 radians but a strong 
radial variations (as in Figure (2.52)). Here the pressure at' 
the wall at a point 6=n plus about 1/3 of a quadrant is equal -to 
1.81*313.5=565 psia while the pressure two-thirds inward towards 
the center is equal to 0.65*313.5=203 psia. The velocity field 
is shown in Figure (2.53) and it is seen that a large induced 
flow is associated with the wave. Figure (2.54) is a plot of the 
pressure at the chamber wall as a function 9 in radians. 
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The calculation was carried out to 6000 cycles which corre- 
sponds to a physical time of 7.35 milliseconds. As is seen from 
the pressure plot of Figure (2.80) the spatial structure of the 
wave persists although- the amplitude is somewhat reduced from the 
earlier time amplitudes . 

•From the plots of density or pressure in Figures (2.67) and 
(2.68) a persistent feature of the field is the existance of two 
well defined wave structures at 0=ir and 0~3ir/2. This is also seen 
in Figure (2.70). As seen from Figures (2.50) and (2.71) the 
streakline exhibits a circular motion over the entire chamber 
.cross section in sharp contrast to the streakline motion given 
for the first transverse without the small rotational component 
added . 
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EaaaaaHMMMHfliiMffBflMMMUttMMMMUMMyMUMttflH |UH|||||||||||||||^yU||||a|||M|S|||||||u||au|||iEaaipiiaiaaaiiaaaaaaaiaiiaiiaaaaiiaRpaaiaiaaiiiaaiBiaPiapauai|iBiaaiaiiaiiaupaaaaiiiiaiB| 


kiipipmaupiiRiinanunHiiiaMPiiMiv 


[ppppp ppppp bps rpin aa PaP ppppp pp akai 


Papppppp ppppp PPaP B RMS: 


B«iiapppapawiip».ianapia»panppaa pp papiiiiaii uaBaaa«aa miawMaa» ar.-a i ^ auwii>-^ac::a waa»a« aia« aiaa Ma Mii a ni i aiaa iP»wiiiaiiiPi»iaa«a»a.»iaaaaaaiia«inna »i » M »«aamaa™a»« «;™ a»™«»i 

EiuaaiaiiiPiaiPiaiaapiaaaiiianaaiaiiRaaRiiaamimaiiiiaaiiiaifc'^iMiiaMi^tiaaiaaiiaic^iamHiaaiaiRiiaaiaiaaaiaaaaiPiiaBaiiiaiaiiaiiiiaaauiaiiainiianaaiifiimmiuainMainaiianai] 

EBBpaBpapppnRPPRPaaBPapRappppflPPRppppaRpPBPPRappppppppappBBP 9 kPiBrPRPBPPPRP^apapppRpaapRpp*^v , MaMPaapaapappMRRPiaRPPRBRBBiaRBRPRPPP«PBPPappppRBPPPPPPBBPpaPPPPppkPPPPMPPPPPPP>PPPPPPaPPPPPapi| 

mbs a PPPPP BPP 


^^^Hiipppaiiaaa ■■!■■ iprp an ■■■ppppp a pppp um nBipppsT^snnkPsp-ppBipnpiiBnsskmnkmkBnkskikBknnpppipsppBSPPpaspnnnKSkkssssipisPaspsiaiiBniiisaia 

Wiiiaiaaaaa pappp pppppppppppt^pp pippp rpanuir. ppppi ppmib^ppp PPIPP MiaapJ ppp pppp ««p ppp ppppp ppppi kaa ppkaPi imp ppm ppppp ppppp bp pprripppip ipi ppp bpppppp p ipp p pip pp pp ppp 

ppp pppaappPRBiPiaBB ppppp ppppp map aanap ppppp npiann* 3 PMnpp ppp ■pTipappppp^Biapppppp';^ aa mbs punnnapmMPiBa a BPasipaBsiappia pip at pppp PRuaa ppppp npap ppppp pnpppa ipp nnspnaa ppppp pm ppp ppimpppH 
[ppi anuppmaippi ibpbp inn ibbpi naappp pip pbprppbsiR ■>'iiiuBaaiaiBaiprikkaaapaary»PMPaappu>ikBPaaua« B kkiiiiM«aiMikkkiPiiikPiiPaaaiapiiRaiRPHaaiiRRaiaaiwaaiaainuaiHiinaiM B Uin BB *il 
Rpippaaaaanp pans ■ppppiPRRaanaiRR«miaBfliiinit:rpiiapRRaPBPaR r iRPRiauBii pi PBPirpiusiuaiBaiBP»*p--»a«RBa^RBaiaRRaBPBaBHiRapBRaPBRPMHPPP ppppi aaa PHaMiaRPafBPPPPaPBRaBBPPBPBPPRwanBBRPP ppppI 
■■■■■■miniamiiiininninkanminai mr^iiiani bppbbbpbbbbbbpjbpb pb prpppb bb bpbp a bpppb bpPbrbbbb Bifc^?a* 3 iBPBBBBBBB bib b pb bpp bbb bp bbpbp bpp ppppp ppb bpp p pppppp bpp p pppppmbbbb prbbprppbm bbbbmmbH 
Ljaa aapupppaa ppppp ppppp a pppp ipppp bpppppp mwjua ■HaiMBiiiniiiaiiur.aiiiiBir.iiiiiiiuiaar^iiuiniiiUMniA.-'iMUiiiimaipaiiaiiuuaBBiaaiiHaBBBBBBBiBBPiniaBiaBiiuipiiiiBnBBBiiiiBBBil 

Ubi paam mn pp ppp ppppp mwainia«B»iaaaaaEiaa»»aiai pi m mm ppp rwniaajinawa ppp ipwppp m taipaiaapa— pppi— a»n«i»n«i an am pppp nan ppppi ipppppppi aiakaa aaiaa ppppp ma a paaipapiia »min| 
■pip appBpaapxa bb aRappaBiBipaa ipppp appPBPpnataaaRPPitppBRirAaiaatPRaBPPaBPRB«MB’kfliiaRitRBBBRaskiuiBaiiiiiiB« sn iiitfiia ppWrppbppppppp ■ bphpiii ppp ■ a bp ppp aia ppp ppp ppi ppp ppi mppp ppp pbii ppi a asRaiapia pppp pH 
jailM PPPPPP BPPP PPPPP pPnPPPPPPPWPPPPPRPPr.fpBPPPPl.'PPPBB'IBPPPmPnpy.pPPPPPB'tPPUpPPPPPBTlBPPPppPkPPPPPBPPPMPPMMMBBaBkHBBBBBPBBBBBRlBBBBBBPBBPBBBPBPBPBPBPBBPP lPR PPPPBBPPBBBBPBBBPMBBaBBBBBBPPPPBPl 
E ppm imp aaa ma iaaaaiaiaaapa«pinMiaamaayiiMniianpnapppf«naaaiaaaBBBrmi ppppp pppppp ippp ppppp a ppb» ppb p p mam ma aaa an pm pppri pmprp ppppp p »■■■ kappa aaa ■ pppppp pppp iib phi ■■■■■ pa bps a || 

Eppp ppp pp ppppb pp ppp pppppp pium m ppp aman a amapm naaa bj/mbp a am ppppp pppbmmpp b •.«BBn m pppp na«aaa» i ^aiaaa. ?»i >a niiHamBiiimniinlaiini ipppp ppppp PkPiPPM ppp p ppppp ppbpb aaaaaaaaaaaaaaaai 
BjpPBBPBPPPPP ip ppi ppppi ip b pppppp pnamnn pppppp k pppp raapnnP«PBf<p a ppppi pppp ppppp-j ppp ppp pppp ppppp t>pp ppp ppp puns? bp ppi* ppppp ppppp pbp bp ipbppppprp ■miiiuiiaiPiiPHiummiamnpiBiiii||||j 
F -.JWsiiipai«iPiiaaiaiaipaiani«aai»Miiaia«i''aiiaMuimaiiaa»aiimiprjppiiiwiiaappiprkaniippppaiip^.BiiBPiiaaipaiaii;ia«i. , ««Mm»iaa»aiaaiaaaaaaaiPPi«PPamB aii ii iBau i iBia iiBiiaiiiaaaaaaP|l 
EiiiaiaiiiiiniupiBBiiiBBBiiiuiau. uiiiiiiiiuiaiii tiiaiiiaaiiiaaiiiiaiaaiBiiiraaanmiiaiir^mniBiumaamik.^ijaipauiiRaaiiaaaiiaiaiiaiaarranar^armiqpnnnrfitriiBa-tiirinayrjaiiu 
EkiaianiiRiaiiaaiaiaamaaaiiaiaiaai^miiaaiatiikaHiiaiaaiamiiumir l iaaianai«aaiaaRaaaaai':iaiiRRaiaaaRiianaaaBiak;.'<iraiaaBPiaxaiiaaiiaiaiaiiiiU'iauii!iRi<iu'iili(t;iiiair! 4 aii pa im'»j"w l p^bp b »1 


nminisitiniEaat! 

Ena nan Rina BanBnnnpnaaajniRinBkiMn.iiEniipiiiiiRniinnrjanBTPnnRFnsnnaap^iiixsB Eiaianna xn=nianMnn*xaIiiB:-iikiiiisnppxnxa ■**ppninpixaaakiBBaifnaBxaBnBBaxannknnn] 

liamiuiitimiaaiiiimaiMaiiiiiuBiiamiiiak'aaiiiwikiiHiian iiiiiikiiiaraaimiiaa^iiiiiiiiiiiimia'aiRiaiiaimiaamiiiamRiimiaaiiiiiiaaiiiiiir. 

aa aax a a« a a a a an aaa bi a ani as aaa nsv'a nsa a I a aaa an kj 4 'l an knap n'jsti k nr* rx- i r R-J a ■ * nn 

■a ■■RRamaPMippiiaRPPiRRRiiBRiiaitpaiitRiR^iismiKiimiki miiuaaiiiiimBiamMaaiiiaaaa aiaaiii’iia iaaaaaaMiiaaaiBaiBi.i«a«Liaaaaiaaaaaaaaimiaaaiirtaawaa«ipmaiaaa^a«a M aft 4 aa.ii«aia>a| 
iiiiiiaaBiaBiii1raaaaai»aaafj»iiiaa«nimiamBaa.iaBi['ai»iBiaiiBi«aiii««paripapiap«yaMi«iim«nmrjmiaaaiaMmaaiaaiaipa l :anmpppppaaaBPPiia««aMik»ia«aaaaiaaiaa»paaaaaaaaiapppB«BP«pppi| 


ppp ppppp p p bp ■ pp ppp ppp pp aapnpnpa ppm kipppcPM xb l<rbp.ib aaa pppp niiiriimriiHiaii arm 
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IllIIPIPPPPUpfiPRPPkPpaPPPBi 


Miaaiiaiii' r aiiapiiapa[: l ;aaLa.i.;^iii;i,jai^ii 
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■laaiiiil 


p-’p p RkkiiikCa kpw'ppkapp.i a mil anna ■iaiiiaRiiaRiiir.;maiar^iiaaiiiaaiiaiiiatiiaaiaiiiiaaaiiiaaaiaaaiiaBakiiiiiiiaBiaiiiiaatiaaitnaiM;iaiinaiaaaaiaaiiaaiiiiaiiaii| 

iiaaiii^iui?iaa?*aL<iRiiaR l .''Piaii 4 iiiRiiaii i jppiiiiBiiBania'iRBaRBaBBaiiBaaiaBaaaBiiiiiiiaaiiaiiaiiiiiaiiaRi>iniMaiRPaPiPPPiPPPP£r 2 BiaiaaNar,ki', 2 -i.c. I r.r, 3 HuTiaiiiii| 
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L*ia a rb^ip ppp pp ipp b a a pip b ipb pa a aia R mia y bmis PmP a ■ ^P PhP ppm P ■ m pH 


aipppMPPMRPPiia ppppp laaaaaa 


■^■■■■HHMHHMHiiM»BiiiaiM V .<>iii a pyx a bb an a Paa a am' an aa iiBPPiiiPBiiiPiiiiiiiitiiiiiPBiiii«»l«»>li>imim «iiinnin l; n .-;.<.;ni>.,i. JM .\iii»inl 
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Eaxi aiaiaiia ik ■nkinixii. lliiiii.il a Pnapak-niak'a aaa pal 1 kpapxp.tn a apaapppiP jib a if riilliaiiniilli' < iiiiiiiiilMiiiiiiiiiaaimmiii>aaiaiuiaMmiiaaiiiaiit>i. MapaaiiaiUMkiM»pak^i<Ri.«iiiaPin| 
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EiiiakiiaRaaiiRiiiaRMMai'JkiaaitMHKL'kiak’iiaHkRMki'MMkRiH.iaiiUHikaMMPiiiau'iaiaiRr.iKxaiiaRRaia^aBaaaiiRaaiaaaiMiiaiiiaBaBBBaRBBBBaiPL'BiiiiiaiiikaiiapaRRRiMiaiiaRUBiir.kaCBii. t>ar.jai^-imni| 

Eiaiaaiiaaiiiiiiiaiiiiaiii][^>iiiakTii>kiinaiai.'<aikkaiiiiiaaiiiiiaiJinriiaaii'iaiaiiiaiBa^RaaaanBaHaB<iaBiiiiiuaaiiapaiMiaaiiiiR.iaiiiaiaaiiuiaiaiBami»iaiaiiiiiaraii|i ; iiikiiiijr:iii ipppbbbB 
EapM«apamimaaaaaaBM , -.imiiniuiiw,iaaManii.iii l \MimniiaiiPiiiiPiimaaaniaa^apaianaanuaiiiiiiiiniBBininiiiiiiiiBi’i 1 [maiPBMBipaipaaBamaiipnmii*nma>.aankjai.«Jiniti| 

EiiainBaiiBMaaaimarjiapaaMHi'iaRLRikik^aiiw'UkiniBiHtiiaiiia ■apiapRiiiRiii,n!miiaa^iiaiiiaiiiaiMakiiiiiaiiiiaiaRaBiiiaiiRiaiiaakk(iiiiiiaaaiaiaaiaaii;H||||||||||||||||||||||||||||||||||| 
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Eiir^auaiaauiiiiaiiiiiaa»'J iMiPiiMiiMiaik'iak.iMia-«ai.'aaa«m<a 

kr.'^ialBiaauaiHa<tmr^uiaaaii i iiin».'iiakiaiwii t 'iviii»nii|iiiiaiinim;:inir.iniiiiiiaimmaiiiiiiiiiiB , ',<»;::-~'«aiiaaaaM>Hi aaiiaiiaiuiaaiaiiai 

.'ilk aa ■t.-pa." ana mPMii sanaa laasai taraiaa 4 aaaaaiaaaaaisaaaaa HMMHMPPpPHHlHHIlHIIHilllHIlHIliHIHH 

E I UP imp a a a a aa xa a ■ a a a ■ ■ aa a a ax a a a a a ■ a ■ PttMMaiNM^^MMi^HUHMHMttMiHHMMHHMMHHMMMHH 
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ClM|NIIIIIIlllllllli:iRIIIIPIIIIIIIIRMPirjlll>^llllllXl.iai 1 ll l llI«.in;milB l lIlBIIBBIBal*lB|lBIXIIliniIIIIItllIIIIIIIIIIIIIIIIIIIIIIIIBiakl[UIMMHMMMMWMM|H«MHHHMHMd 
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Ep?^tmtiiiiiiPiRiiP.]iBiiRPiRriRBBJPRnrjpnnappiidBiiiii'RrjiPR wikB.llliM.R-at'Miiiapp iixiaiii(iaiiiiiiitiiiipiiiiiiiiiiiiiiiiiiiaiiiiiiiiiiaiiaitiiaiiiiiiiiiiiiiiiiiiiijjiiiii* 2 j>i^^i< 2 ||ki>i<iiiiii| 
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'iiiiRiniaiiRtiititiRiiiRiiiRiiuiRLniiiiiaiiiiiiaakniaiBaMMiBiiaiiinRiRiRiHiiHHRiiPiiiRiiRaikiiiinRjiiiiiimiiiiiiRmiRRiiig 
■■paApyp tniiB.iiPABPBBP iiti'miiiiiiiiBiiiuiiiiiiiinBiimmimiiiiiiiniBiiiiiiiiiiiiiiiinmmiimmii.i.r^.iiiJr.-iiiiiP 
I ■ ip iti pi mi i mu lHiaiPiapiiMiiRiPRiiiaiHiiiBiiii mnninRiiapia b'ibppp na pan aiiBBBy viaiiiiiiiiiRiixii«riiiiJ>ri|||g|ij|||||| 

yrnnHiiLBiakiiantiiiimMIlimaMiiliiiaMiiia iaa an aaa a ■mmmiaiaiammaiiiBiiaiiiBBba.i.i.^ 


ir^f 3aiiBiiiiiiiiiMia.'PPiiiniPBii.MiPirbiiiiraiiikxiiiniBi^iiir/xiiiiiiit iiiiiiiBiuiiiiabMiiiiikiRiiiiiiiiiiiiiiiiiiiiiiiiiiaiiiiiiibiiiiiiiiiiiiiiiiiiiiJiMHiiaimiaiiHiiiuiiiliiiiiJiP 
iiMBMiai»iiiiuian».i>ni.imii'liniUiiili’iHimni|i!;jii»a i>.iPiiininmi»mit'iinwiniiiiiPi>»iiMaanaiiiiiiiiiiiiiiiiiiiRiinMiiiaiiiiniiiiii»iBtl»niniin«nni 3 .HtiKT. 3 i| l >i.«iiij| 
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Kp aa ■»* Irtia •■■■ mai ■ ■■■■ >■■■■ ■■■■■■ ■■ ■ ■■■■■■ aa— I ■ ia ia ■■ ■■ ■ a ■■ ■■ aa ■■■ ■ ■■■■ anr.i a ■■■■■aiaiia ■■■ ■>■■■■■■■■■■!■■■■■■■■■■■ ■■■■■■■■■ n taiaiiiaaiaaaaaaaaaaaaaaaaiiaiiaaaiiiaiaiaaaaiaaaaaaaaiaaaaiaaaaaaaatataaaiaaaa] 

■ a aa ■ ir.auuamB aa BaaMaaaaaa ■*■■■■■■■■ ■■■■aaaaaaaaiai aaaa a a aaaa aaaaa ■■■■■■■■!<■■■■ aaaa aaa aaaaa iBiaiaaaaaaiiiaaaaaaiaiaa ■■■■■■ana, ia ■■■■■■■■ aaaaa ■■■■■ aaa aaai ■■■■■■■■■■■■■■ aaaa aaaa laanai aaaa ■■ laaaaaa a aiuaiaiaNHV 
iaaaiaial’iauaaaianiaiiiiaaiiiiiaaaaaaaaiiiiiiii(iiiii»iii(iiiiiiiiiiaiaiaiiiaaini>Hla*>aiiaaBiaiiaiiiiiaaiaaiiaaia(iiaiiiiiak'awiaaataanaiaaaiaa)aaaaaaaiaaaaaiaiaiaaaaaaaaanaaaaaaaaamiaaaaaaaaaaii>aiiiaa>(i 
[■■aiariiiinuaiuuimUBamkiauaiuaBiaiimiuBiaiBuauimammiimuaBBmuinuBaaakiiuiiBBllBBumkaiBmaiPBa auuUiuuumiBiunuuaaBna>aimaaaauiauaiaauuaiaauuuuaaiaaaaakamiaiuiiid 
Earn— ana mm aiaa aaaa aaaa aaaaa a a a aai aaaaa aaaaa an aa aaaaa ■■■■■■■ ■■■■■■ aaaaa ■ ■■■■■■■■ iilBBBaamampuaauaaiaaaaaaaamaB mm iminuBiBBaaBUBBaaBaaaaakBuaaiBBaBBBliBamBkBBaBaslBaauaaaBBBaaaBBaa ■■■■■■■■■ 
kaaaiap^.jaaaa — aaaaaaaa aaaai la aaa a ■■■■■■■ aaaa a— aaaaaaa ■■■ aaa a M aiaaaaaaaa a aOa a a aaaaaaa ■■■■■■■ aaa aaaa Baa fa ■■ aaaa aaa gaaj aaaa a aaaaa ■■>■■■ a —aaa aaaa a aaaa a aaaa aaaa ■■■■■■■■ aaaa aaaa aaaa ■■■■■■ aaaa a aaa aaaa aaaa aaaa a— aaaaaai 
►■■■ ■*•-■! ipmumi aaaaa aa ■■■ laaaiiaaa ■■■*■■■ iiaaiaai ■■!■■■■■■■■■■■■■■ — ■■■■■-■■■■■■■■■■■aaaaaaa aaa>a aaaaa aaiaaaaaaa aaaaa >aaa—M| g— gg — — — — — — — — — — — — — — — — — mmm — — — — — — — — — — — ———————————— 

Ena r-; raiman aa aaaaaaaa aaaaa ■■■■■■aaaaaaa ■■••■»• ■■ium aa aaaaa aaaaa •«•■■ Ira aaa —aaaaa aaa aaaaa iBaimauaiBammnaaamaMHmHHHmMHHHHHHHHHHP^H— 
utimai)iilnaliiiiia>iaiiuiiaiiiauian>aaiiMMiiMiiiiM«i>aiiiiii>a>Ml>aiaaiaiiia>aaauap»aa»i>atimaiiiiiaaaaaa>Baa»uaBiaa>iaianiaiiaiaaiiniiuatiaaaMiaaaaaMiiiaiaiMMaiiiaaiiaiaiaiiiaii(i aaaaaaaaai 
■a aa aa ■ ai na aaa ■■ ■■ ■••■■■ aaaai aa aa ■■ aa aa aaa ■■ aa a— laa aa !■■■■■■■■■ aaaa a a !■■■■/■■■■■ aaaa aaaa aaaai U| — — — — — i—i— — — — — — —|— — — M 

a— — ■ a ■ i — — — — —g — — — — — — — — — — — — — — — — — * — — — — — — — — |— — — — — — — |— — — j 


■■■•■■■••■J 

MNIIIIHIlMaaaiaiiiaiiiMiiaatia ■■■■■•■■■1 

^^^^^^^^HM^MaaaaiiiaaaiiaKiaaiaiiaiaaaaiaaiiaiaaiaa ■>■■■ 

laa ia a a aa a ■ aaaa bbb ■ i aiaa ■ a a a ax aa aa a a ■ a a ■ ■ ■ ■ ■ a laaaaiaaaiaaaaaaaaaaaiairi 
Vnnaaaaiaaaaaiaaaaaaaaaaaaaaaiaaauaiaaaaaaaaaaaaiaaaaaamamiaaa iiiiMM 
■aaaaaaiaaaaiaaaaaaaaaiaaiaaaaaaiiaaaaiiiiiaaaiaaiaaiiaaaaiiaaaaaaaaaaiaiaiaaal 


laiimtaaiaaaaiaiiaiaai 

„ i aaaa aaa a aaaa aaa aaaa aaai 

il i aa paa aa aa ■ a ■■ aa aaaaa ■■ aa a aaa ■■ aaa aa aa aaaiaiaa ia ■■■■■■■ a aaaa a aaaa an <■■■■■■ ■■■■■■■■■■■*■■■■■*■ a ■«■■■■«■■•■>■ ■■■ aaaa aaa «aaaam 


iaaaaaaaaaaaaaaaaaa] 
MMHHHMmaamiiaiimiil 
■akaaiaaaaaaaaaiaaiaaaiaaaiaiaia 

Eiaaaiai9iiaiaaaaBiiiiiiaaaBaaaiiiiaaiiaBaaaaaaBaBaaaaaBaaaaaaaaaaaB9BaBai>^aaaaaBaaaBaiiiaiiBiaaaaaaaaituaaiaaaaaiiaaaiiai iiaiaaaak'a ■■■*■■■•■■■■■ aaaaa ■■■■■■*■] 

MMn aa a ■■ ■■ aa ma aaa a> a a aaa a ana ■• a M aa »a ■ * aa ■■ aa ■■■ a a* ■ ■ ■ aa a ■ « ■ ■■■ J ■■ ia aa a ia ia aa aaa ■> a ■ aaaa aaa ■ ■ al a a— — — — — — — — — — — — baa— — — — — — — — — — — — | 


. Hllnaa iaiaaiiai iiimiai iaana ii iiiaitia aaaaiiaaia iaiai aia ia ia aaaaa it a iaaiiaa aaaai aaaaMla aaaaaa al aaa aa ■■ aaa aauaaaaa ■aaaaaaaaaaaaa aa aaaaa ■aaaaaaaaaaaaaaaaaaa«aaaiaaaaaaa ■••>■■•■ aaaaaaaaai aaaaaaaaai 

■aaaa>aai kaam ■■■■■■—■! ka ■•■• ■■■< ■■■(■■■■■■UMNMIIIimMIIRm*l*»*fltUtlM«aaMaamiMH>uiuiinnianntianinn>imi«niiiHHmau«i«>iHMium«M»l««HtBiiu(«HaMaMniauMiiiMt«it«u tai«ia»aii 
■■iik^iaiiaiaaMBaMaiiaiiainaaHtaaaaianiaiiaaaiiaiiitiaaiiaiaiiiiiiiaia'jtaiaiiiiaaiiananiaauiiBiiaaiiiiiiaiaaiiiHiMaiiiiiiaaiiii ■■■■■■ ■■■■■■■■ ■■■■■aia a ■■■>■■■ ■aBaaaaaaaaaaaaaaaaaaaaaaaaaaaai— 

■ •■■r^aiiiuiiatiaiiiiiiianiiiiiiiitiaiiaiafiiMiiiiiiiiaaiiBaialiiiaiiiii«iiitiiiiia«imiiuUiaiiuiM(tuatiMia<uuiaiiaiaMtm*kMa«t*aaaiR«aMMuiaaaiiiHiiaiiaiiiaaaai(aiaaiiiam(imi(iMiMMMMMMi 
iuat«faiiaaaaaaaaaaaaaa«— aaa —aaa ■■■■■■■■■■■■—*■■■■■*■■■■***■ a a an ■■■■■*,* aaaaa aaaa a »■■■■■■■■■ ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ ■•■•■■■■■■■■■■■■■•■■■■■■•■■■■■■■■■a aaaaa aaaaa aaaaa aaaaa ■■■•■■■■■■■■■■■■■■»iiiia<i»Ban»| 
tan iiiaiiaaaa a aaaaaaaaai aaaa aaaa aaiiBiaaa aaa aaaa aaaa aaaaa aaaa aaa aaa aaaa ■■<■■■■ aaaa aaaa a aaaa aiaa aaaaa aaaa a aaaa aaaa aaaaa aaaaaaa taiimua • aaia aaaaa aaaaa aaiai aaaa a a aaaa aaaaaa aaaa aaaa aaaa am aaaa aaaa aaaa aaaa aaaa aaa a a— M 
HUBaaaBiiBaaaaaaiiiaaiiiiaiaiaiaiiaaaiaiaaaaBaaaaaaiBaaaaaaaaaaaBiBiaBiaii ■■■■■■■■■■■miiam ■■■■■■■■■■■■■iia ■■■■■■■ ■>■■■■■ iaaiaiiiiaitt«iinaiiiuiu»MMiiiainiitiimBiuMukiiMitatiuaiMitaaaiiiiinmi 
■(•■[<kiii>uiuakaa*iuituu iiasaaaBMaaaaaaaaBaaaaaBiiaaaaiaaaiaaaaiaaaaaaiaBCBaBaaaaiiaaaiaaaaaHaaamaaasiBaaaaaaiiaaaaaaBaaaaaaaaaiaksaaaaaaaBiBaiaaaaaiaaaaaiaaiaiaBaiaaaaaiaiaBaaaBaiaaaiaBiaiaaaaaaiaaaaaBaaalOTS 

■ ■■•a— ,«iiiiniMaiaaiitiutaia(iiiii(iiiiiiiiiaii(iiiil«aaiiiiiMliBiiiriiu ■■■■■■■■■■■■■■■■■■■a aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaakiaaaaaaaaMiaBaaaaaaaaaaaaaiiaaa aaaaa aaaa aaaaaa aaaaaaaaaaaaaaaaaaaaaaaaBaiaaiaaaaaaaaal 
■aaa i«* a,^i ■■ g aaa aaa ana aaaaaa aa aa aaa aa aa a aaaaaa a a aa ■■ aaaa a aa aa a a aa aa am aa a a aa aa aa aa a ■■ aa aaaaaa aaaaa aa aa a aa aa a a ■■ ■■ aaa aa aaa aaaaaaa aaaa a a aaaa aaaa aaaaaa aaaaa ■■ aa a aaa aa aa aa aa aa aa aaaaaa ■■ aa aaaaaa aa aa aaaaaa aa aa aaaaaa aa aa 
luarrailia aa ■ aamaa aaa ■■ aaaaa a aa ■■ aaaaa ■■ aaa aaaaa aaaai ■ aaaa aa aa ■ a aaaa irai a a ■■ aa aa aa a • m aa aaaa aaaaa aaaa a aaaaa aaaaa aaa aaaaaaa aa aaaaa aaaa imaa aaaaa a aa aa aaaaa aaau aaa aa aaaaaa aa aa aa aa aa am aa aa a aaa ■■ aa aa aa ■■ aa aa aaa aaa ■■ 

■ abb tVk a 4kii aaaa a a aaaaaaaaaaaaa aaaa aaaaaaa aaaaa aaaaa anaa aaa ■■■■■■ a aaa ■■■■■■■■ ■■ aaa Bill a samBaa ■■ ■■ ■■ bvk ■■■■ a ■■■■■ Bbbwb ■■■ ■■ Baa a a inlm va ■■<■■ kb bvbwv ■■■ bbkb a ■ a —■■■ a^aa ■■ sa ■■ ■■ KBBa ■■ aa ■■ aa BaHaia hb bb b« ■«■ ■ ■■ ■■ ■■ Ba ■ abb bh 
M ikHiamiiiiiiii>aaiaaiatiaiiiaiiiimiiiiiiaBaiMiBimiiiiiiiiaiiirjaiiiiiiiiiiM«iiiaiinnnBuaiUM*uainnuaJ>ki>uMn(HMiBtn3iHii>iMi«iimaiiiaiiiaiiitiiiiimiiiMiiiiMiiiiiiiiiiiatiaitiiiiiiiiiiii| 

■ ■^■aaaiiaaaaanMaanaaaaaaBaaaBaaBaBaBaaBaBaBaaaaiaaaaaaaaaaaaaaBaaaaaaiaaaBaaBitnaaaaaaBaaaaaaaaaaaaaaaiaaaaaaaaBaaaaaaBaaaaaBaaaaaBkaaaaBakaaBaiiBaanaaaaaagnB— — — — — — — — — — — ifli— — — — — — — — — — — 


■•■■■■■■■■■■■jiipaiiiiiBiiaaaiaBiiBBaaBBaBBB] 

| ana ■■■■■■(■■■■■a ■•■■■■•I 

MMOTOTMSWOTl a aaaaaa ail aaaaa i aaaa in ■■■ ■■■■■■ •■■■ ■■■ ■iiiaJVHMOTOTOTOTOTOTIOTOmOTMOTWMBOTVIlOTSOTOTOTOTVMMMI 

■■■aiaui aaa aaa bib ■■■■■! aaaa a ■■*■■•■■■■ ■■■■■■•■■■■■■■■■■■■■■■■■■HB ■»•■■■■■■ ■•■■■■■■■■■■ an ■■■■■■■■■■♦■ BiiBiapaBBiBa ■■■■■*■■■! 


aaaiaaa aaaaaa aaaa aaaaai 


a— '.a*BRii»BBi«ii: ■Baa»HBBK*»»>»»«B«t»i»’«a»»B* a«»i 

aa"a aa aai i aaa ■ a ■■■ ■■ ■■■ aa ■ ■ aaa ■ ai aa aa ■■■■■ aa a ■ aa HRMWMIllIRWIMilRilllillPIHIMBBBBBBIBBBBIIHMBMMHIPBIIHMIlllPIIIIIR 

a piuBaaanaia aaa ■■■■■■■■■»■■■■ aaaaaa laaaaaaaatmaiaaimaiaaaain aaa an aaaaa ■■aaaaiaaiiaaaaaaaaaaaaaiaaaaiaaaaiaaiaaaaaaiBiaaa aaaaa ■■■aaaaiaaaaaaaiaal 
Utaaaaaiiaiiaiiafaaaiiiaiaiaaaaiaaiaaaiaiaaaiiaaaaaiaiaaaaaaiaaaiaariaaaii aaa aaaa aaa ■■■■■■»■ aaaaaa aaaai a ■■(■■■■■ aaaaaaa aaa aaaa aaaaa aaa a aaaa aaaa a aaa I 
■auiiainaiaiiiaaaiaaaaanlaaMaaaaaaaanaaaaaaaBaaiaiiaaaaiaaainaiaaiaaiiiaiaiaiiaaaiiaaiaaaaiiaiiaiaiiaiiiaaaaaiiiaaaaiaaaaaataataiiaa ■>■■■■ bibb I 
■ — ■ i \ *■ ■ ■» ■ ■■ ■ ■ ■ *■ ■ ■ ■■ ■ ■■ ■■ * » a a p ■■ mb mm pm • ■ u m ■ » m • ■ a par IB ■ ■■■! aa aa a »jp»b ■ ■ bjp bb pip ■ m aa a- a ■ a aa » ■ a ppp« a " ■■ bb aaa ■■ a* bibb aaaa ppp.iu|uu^J 

[i«kWiiaaaaa ■ aaaa aaaaa a aaaaaaa aata ■■(■paaaaaaaaaaaati aaa* aaa ■■■■■■■■■■ am aaaaa aaaa aaaa ■■■■■!> aaaa aaaa a aaa ■ a aaa a a aaaa aaa aiaa aw a aaaa a aa>il 

t^illiMiamaiaaniimiaiaaiiiaiamiaiiiiiiaaiiiBiiiMiiiiiriiiiniaiaaaiiiiamRHiiniiiaiaBNimimaMmaimaiiiiamaaaiiiilllRPINIHIIHIIHII 
fk« ■’!■■■■■ ■ aiaa ■■■■■■■■■■■■■ aaaaaa a li a ■■■ taaaiaaiaaaaaaataaaa ■■'raiakaaaaaaaiaaaaaiaaaaaaaiaiiaiiaaaaiaaa ■■■aaaaa aaaaaaa aata aaaaa aaaaaa aaaa aaa aaaaa aaaaaaa aaaai 

U— | — a ■MHI — — — — — a— ——a — — — — — — — — — — — — — — — — aaaaaaa ■■ a— — — — aa— — — aa 

■ a a aa ■■■paaa aaaai a ■■■■■■■ para an a aapaaaa mi aaia mi aaaai aaaa I 


■ auiaiaiaal 




i ■■■!■■ ■■■■ a a aaa a ai 


pauiaia«inMitT^iiiii»iiar^MiPMrTirSHnaia«a!aiaiiii«i»iiiiiiiiiil 

ba— — — ■— ■ u b a h w * a a ■ ■ ■ ■ a * a ■ ■ ■ • ■ ■ a a ■ ■ a » i ■ ■* * ■ a ■ a a » ■ ■ a ■ a «* ■ n a ■■ PVPWMHMIlVMMlWMIVlilVMIIOTMiiOTVIlMPilSOTWMOTMIIMMOTSMiMMmPiliimiVMHM 

I an ■■■■■■ ii ■■■■■■ ■■■■■■■ ■■■■■■■ bp a a ■■■■■■■■■ ■■■■■■■■ ■ ■■■■■■ ■■■■■■■■■■ ■aaaiaiaaaaaiaiiiaaaaiakikaaapaaaaiMaaaaaaaiiaaaaiiaaiapuiiiiaiaiiaiiikPiiiail 
E— — — —————— — — — — — — — — — — — ■■aaiaiBBkiaBiaakiaasiaaaaani ■■■ ai a a ai a a aa ai aa ■■ a aa a a a a ■■ n a ■ ai a a a aa a a ■ a ■ a aaa ai ai a ■ a ■ ■ aa a a a a a a a ia a a a — — — — M 

■ ■■■■■■■■■■■aaaa aaaaai aaaaa ■■■ ■■■■!• aaaai ■iiaaiiaaaiimpEiiaaaatiaiaiaaaianaiatiPiaiiaiiaaiiiMaiail 
liaaaiaaiPMaPM mnnmilMiiaati aaaaa ■■•■■■■■■■■ aaaaa aaa a a aaaa a a •■■■■■■ a aaa ■■ a a ■■ a a a ■■■ ■■ ai a a aa aa ■■■■ 

: |aiaaiiaatiaaiiatiaaiiaaa ■■>>i>apii>pt>ii..i>i.i.i<i.i|i.p>i|i«>ii>>MP>p.p<p l ii> 1 iM<<i>M>»>>>»<PMPMPiM| 

\rnmamamwmmm*m»aaamwumuMmKT!wmBnmKWKammm*nMwmwmmKWBmK9mMBmmm9MmBaBa iianmiiKammHHnunnMHiinntnnHmiHniMmnuMMHtMHmHHamMainiMnMnaaiaiail 
■MHIIIIIillllllllllllPMWMIll a Baal a ■■■*»■■■* a ■■■■■■■■•j ■■■•■««■■■■■ ■■■■■■■■ ■■■■•aiaaaanaiiaaaa aaaaaaa Ball aaaaaaa aaia an aaa la In aa iiaaaa ■■■■nail i ■ aaa ■ mu ■ n nil ■■■■■■■■ ■ biiiii ■■■■■■ ■ ■ iaiai a aaaa iiiiiiaial 

■aiiaalituaaktiiaaiMiiaiiiiiiiMiiiiiiiiiiiiiitimiiuiiiiriiiiaiiiaiiiiiiia(«iRii»*itMiiiiiifimiiiiiiiiiimiiiaiiiMaaaiaaiiiukiiaMMiiaiMKMiaiHtaaa«t«MiiiiiKa«a«aHiiiaaiHMaa*Maaa*MaMakaa«(M| 
Via aaaai ■■•■■■ ■«■«■ ia ia a aaa ■■ ia aa ■ ■ ■■ aa a aa ■■ ■ aa aa laan ■■■■ aiaana aa aaia a a a a a a a a a a a a a aaa a a a aa a a a ■ ■ a ■■ a ■■ aa aaaaa ■■ ■■ a ■■■■■* Ban aaaaa ■ ■■ ■« ia ■ ■■■ ■ aaa ■«■■■■■■■ ■ ■■■■■ ■■■•■■■■•i ■■■■■■■■■■■ ■■■■ ■ ———————————————— 

iaaanaliaaaaaaaaaaaiaaiaiaiaiiaiaiiaaaaiaaiaaaiiiiaatmMaaTiaaiaaiiaaaiaiaiiiBiaaaaiaiaaaaiiauaaaaaaiaaaiiaaa>piiiiiaiiaaiiiiiiii)aiauluaaaiaiiaiaaa»aiiaaaiaaaaaaaiaiaiaaaaiiiiiia] 
a am ■■ "■■■ ma aia ai ■■ a aa ■■ aaaia a a aaaa a aiaa lainam a aaia aaar.ka ka ■«■ ■■■•■■■■■ aaiaiaiaaia al aa a aaaaa a ■■■■ ■■■■■■■■■■ ■■■■■■■■■■■■■■■■■■■■■■■■■■.■■■■ naiiiimitiauHaaiBaiiiaiaimiuaiataiHHMMH 
■a.p.paa«aiia.«iaipiiaai«aiaiiiaiiiiMiiiiiiiiiiiiiiiniiaiiiaaan.anipi«apa»..k.i..piM.i...pi..«. aaaa ■ mtiBa a aaaai aaia ■■■■■■■■■ a aai 


inn ■■■(laiaiaiaiiiaiaaaiaiiiiHiriaaaiaaiaaiainaaiBiiaiii aaiaiiainad 

r.aa L«ra i !■■■■■ ■■•■lpaaaaaaiaiaaaiaiaaiaama ■■■■■■■■■■ iianiain ■■■laaaBnatMMHMMHMMMMMHMHMHHMMMMHHMMMMMH 

" ~ ■ aa ia aa aiiaia ■■ aa a aaa ri aaaaa amiiMaa raiBaaiBBa ■■■■■■■ ■■■■■■■■«■ ■■kpaafiaapaa ■ an biihi ■»■■■■■ aaaai *a n aaaaaa ana it ■aiiaiaiiiia ■■■■■■■■an 

L— — — — — — — MMM M IM M M BM M M *“■■■■ f aaaa ■!■■■■■■■■■ ■aiaaaiaaaaaaaaiiaaa ■■ aaa a a aaa a a a ■■ a ai aa ai aa a a aa a a a a a aa ■■ aa a >p»aa>a>p<>pp|apaiH^HHBBHHBBBHBHIHHBH 

t— a Aiaaaaaaaa aaaa am m aaaa aaaaa aaaaa aaaai iammiii aaaaa tiaiiaaiaiaiai iaai» ■ ■■■ ■ aiaaa aa a a aaaaa a ■■■ a a a aa n ■■ aia aai aaia am a aaaaa aaa aaaa aM 

■ niiiMiiii«apiMamaiMHMaiinaaia«»iiipi..i..aam«aai. laapipaail 


klMia.^iaaaa aaaai kali apaaaaaaaa a aaaaaa aaa ■ ■■■■■■■ aua aaai 

■ rr^uti iiiaaiiaiia ana ■■■■■■■■ in ■■■■■■■■■■■ mi bu— — — a 

■ i-uiaiiaaataiaaaaaaaap ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 

————aa— •———•— ——a ■■■■■■■■ ■■■■■■■ ■■■■■■■■■■ I 

ppippalPMiippplappMlpipl 


a ■ ■ ■aik'aai aiaaa ■■ ■■ ■ ■ aa a a aaaa ■ ■ ■■ ■■ ■■ ai a a aa ■■ aaa ■ a ■ aa a a a a ■ a ■ a aa aa a ■■ a a aaap ■ a ■ aa | 
i a ■ a ■ ■ a a a a a a a a a a a a aa aaaaa aaaaa aa aaa a aaa a a uaa aaa ■■ aa aaaaa ua aaaiaa aaaa a a ana aaaa a aaaaa aa aa ■■ aa ■■•■■« k ■•■■■■■■■■■■■ ■ ■ aaa aa ■•■ ■■•■■ 
1 1 ■■■■■■■■ a la a a aaa III aa aaa a aaa a ■■■■■ a aaaaaa a mmumrmu aaaaaaaaai a a a a 

■ ■aaipaaiiaiiiaiiiaiMaiiaiapaiiiipiaaiaiiaaaiiPiaiTiaMapamai(| 


El ■■■■■■■> aaaa ■■!!■■■■■■■ ■!■■■■■■■■ ■■■■■■■■■■ 11 III ■■ II a a ■■■■■■ ■■■■■■■■ ikaaaiaj 

I— ——ulna ■■ aaipaaa ■■■■■■■■ I aa ■■■■■■■ <■■■•■■■■■ ■■ aa a ••<■ a a aaaa ■ 1 ■■■■ a aaa— a— m —a m — — ————aa—— ———— m— ————————— ———MH— ni 

■MKpiip.pipipiipppapaP.piatpppi iKiiiapiaaapHiipm 

a— ■( avjaiauia aaaai ■■■■>>■■■■■■■■1 ■•■■iiianiaaaiaiiMiaiiii iiiiiiiiiiiiiiiBiMiiiiiiaBaiMiaBiaaiikiiaaiaaaiaaaaaiaaiiiipiiiiipapaaiaianiia 
kiii^iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii*iiiuaumi)uiiiiiiitiiiiiaMiiiiiiitiiiimiummiiiiMMtmitiiiiiitiiimiM>Mammi»>miiHiMakiaaaHMimuMaiataiiM»aii| 
■■■« ratal ia ■■■••■■■ ■ aaa ■■■■■■■«■■ am ■ ■—• aa ■ ■■ ka aa a a ■■ ■■ «■■■ r.ina ■■■*■ ■ ■■■■■ ■ ■■■■ in ■ ■ ■■■■■■■■■■ a ■■■■ aa ■■ a aa ■■■ naan ■■ aa ■ ■■■■■■(■■■■■■■■ ■■ naiBl ■■■ ia ■■■■■■ ■ ■ I— —a ———————fl 

■ a aa ■•.«■! ma ■ a a aaa a aaaaa m a ■ a ■■ ■■ ■■■ n ■■■■■ a aia a a iiiiniaJ aiaa ■ maa a ■ ■■■■ ■■■■■■■i ■ ■•■■■■■■■■ iiaiaania ■■■■■■■■ ana aaa ■■■■■■ ■■■!■■■■■■■ ■■■■ naan ■■■■■■■■ I 

■ ■ uinsi’.’iBii ■■■■■■■■■■■■■■■ ■ a ip ■■■ aaaa «■■■«■*■■■ ■■■■•■■•aiiimainii ■■•■■•■■■■ ■■■■■■■■■■ ■■■■■■■iiiiam ma a a nil ■■■■■■■■■■■ iiaiiaiiiaam 

— —ipi.uilia ■■ ■ ■ ■■■■■■■■■uiuau ■■ m ■■■■■■ ■ ■■■■■ a n ■■ aurii am ■ ■ ■■■■■■■■■ ■ ■■■>■■■■ a ■■ ■■■■■■■ ■ ■ m ■■ n uitni aaaa «a«a aa a aaia • i aa aa ■■■■■■■■■•■■■«■ ia ■■•■*■■■ aiiaIiIiiiiBliiaIiaiiIiiiii«iiiiiiiIiiiiiiBiaBiiiiiIiiiaaiiiiiiiiil 

L^j a ■ a ■ a ■ ■ a ■ ■ ■ a ■ a ■ a a ■ — — — — — — — — — — a— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — mm— M— M— d 


■ ■■■■■■■■■■■■■■■■■■inaiaapapipiPMIBiPiliiiiilii 


iaaaaaaanaaaaanaaiaaa«HaaaaaaaaakaaaaBnaB 


■ ■■ a ■■■■■■!■■■■■ a aapa ■■■■■ a aaaa pppppuBuia aaa a a aaa aap a a p« 

Swaaa ■■■ ■!!■■■■■ ■■■■■ a ■■■■■■•■<■■ a aai ■■■■■■ ■■■ ala paaa ii 

■ aiaiiaiiiipiti>a>iiiniiiaaiiiiaiiaiaki|ipiail«iiiiaiarai 
lapaBiMPiiitiniiiRiRiPiiiRppapapaiPiiiiiaiiiiiRRiiiia'iii 


■ ■■RtiRiaiiianiRiiiiiRi nr 


^irana aiaaaia KaiaiaBBi ■■■»■»■ awaaa aiaa aiaa a alia S^a aaa iiaaiaB|aMaa,a—afc— aaia— |ga,fVtV 
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IV. ANNULAR MOTOR EXPERIMENTS 


In Reference (1) , .the partial differential equations and the 
associated difference equations for the annular motor are presented. 
The geometry of the calculation is 6-z-t. This section describes 
time dependent calculations of the complete fluid dynamic annular 
model coupled to the combustion model (referred to as the modified 
Godsave analysis in Reference (1)). The first calculation has as 
initial conditions a solution to a wave equation analagous to 
Equation (2.15) modified for the annular model. This solution is 
superimposed on the steady state solution given in Reference (1) . 
This requirement is needed since the classical solution is derived 
for the "organ" pipe geometry where there is no condition of net 
axial flow to be met. There have been various analyses for a 
classical solution with Mach number effect included. However, 
the condition at the injector assumes a discontinuous combustion 
model (concentrated combustion) to satisfy the boundary condition 
of zero velocity at the injector face and the linearizing field 
condition of constant Mach number. 

The starting point for the linearized solution is Equation 

(3.7) . The solution is assumed to be of the form given by System 

(3.8) with u^O but v=0. We start by noting 

p - P Y (4.1) 

for smooth flows . 
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Hence for a particle in such .flows total differentiation yields 
.1 HE - X Hfi. = 0 

p Dt p Dt (4.2) 

where; in the annular coordinate system 

D _ 3 3 v 3 

Dt " at + u 3z . r 3.0 

Using the definition of sound speed under the assumption that the 
equation of state is the ideal gas law. Equation (4.2) is written 
as 

Dp_ _ “ 2 Dp 

Dt Dt (4.3) 

and is used in Equation (3.7) to give 


Dp - 2 

= c p dxv u 

The divergence operator is defined as 

div = 3_ + i 3_ 

3 z r 58 

and u is given by 



In this analysis u = u(z) . 


(4.4) 


(4.5a) 
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Then, if we assume that p=p.(z) and p=p (z) only;, also p'-p’Cz, 
and p , =p , {z,0). Hence 


P = P + P* 

p=p + p’ (4* 5b ) 

is substituted into Equation (4.4) also using the definition (4.5) 
one gets to first order in the perturbed properties 

p' + u p' = -c 2 p div u . ; (4.6) 

t z 

Equations (3.5) and (3.6) can be written as 

_-l 

u + u u = - p grad p* (4.7) 

"C z 

using relations (4.5b). 

Again we let the potential ^ define the velocity field 

u = grad (4.8) 

Hence, Equation (4.6) becomes 

p' + u p* = -c^pV 2 i|» (4.9) 

^t z 

Equation (4.7) is written in terms of the potential ty.-i . 

_-l 

grad + u grad \p z - -p grad p' (4.10) 


or 


iLr , + u iJj 

v tz zz 



(4.11) 


Equation 

written 


(4.10), being an exact differential quantity, may be 
_-l 

ft + u if> = - p p' (4.12) 

t z 
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If Equation (4.12) is differentiated' with respect to the time 


t, one obtains 


*tt + “ *zi 



Combine Equations (4.9), 


*tt + u *tz + U +zt 


(4.11) and (4.13) to give 
+ u 2 \jj zz = c 2 V 2 ip = c 2 (\p zz 


or 

(= 2 -u 2 ) * z2 + = 2 +ee - 25 * x t ~ *tt = 0 

which is the defining equation in the space (0-z-t) . 
in the present formulation. 

One possible solution to (4.14) of the form (4 

p = p {1-ye cos (kct+0) cos (gz) } 

u = u - c —B sin (kct+0) sin (gz) 

v = c — cos (kct+0) cos' (gz) 
k . 

where the constants g , k and 0 are defined by 
g = 2ir/L 

k = -u/c g -/g 2 -l 

e = ^max~P 
YP 

conditions (4.16) are obtained by requiring u* (z) = 
and z— L, L being the chamber length. 


(4.13) 

'T* 0 0 ) 
r 

(4.14) 

We let r=l 

.5b) is 

(4.15) 

(4.16) 

0 for z=0 
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we 


To define the initial conditions, for the numerical calculation 
choose a value of Oiefl which defines the value of the maximum 
perturbed pressure p max . Then 

p ( z , 6 , 0 ) = p ( z ) { 1+p 1 ( z , 9 ) } 

i/y 

p (z,e,o) = p(z,e,0) 

\ ** • J- / ) 

u(z,e,0) = u(z) { l+u ' ( z , 0 ) } 

v(z,e ,0) = v' (z,9) 

defines the initial conditions (at t=0) including the deviation 
from the one-dimensional steady state solution p(z) and'u(z). 

Figures (3.1) - (3.6) are the result of a calculation using 
the initial conditions derived from the wave equation. For this 
calculation no energy was introduced into the system. After 800 
cycles or 2.2 milliseconds the maximum pressure had dropped by 
two orders of magnitude' as the gas effectively evacuated from the 
chamber. When this same calculation was run with energy, a steady 
state was reached by 500 cycles or 2.7 milliseconds. These results 
are shown in Figures (3.7) - (3.14). Figure (3.14) shows essentially 
the same pressure profile at 6.5 milliseconds as observed at 2.7 
milliseconds. 
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Initial .conditions - for a "pop” were simulated with an energy 
pulse equal to 4% of the energy in the chamber. The center of the 
pop -was placed at 0 = 3ir/2 and- z = ---3Az. It extended for a distance 
of 3A6 on each 'side in the 0 .direction and for a distance of Az on 
each side in the z direction-. The. -pressure, in the pop was obtained 
from the formula 

p = p + c A sin 6 ) - 3A0ie<llL + 3A0 

. V>A 0 ) 2 2 

where c = V for z = 2Az - c = 'h for- z = Az, 3az . 

A was obtained 

^ + 3a 0 X=1 

sin fe) T de <4 - X8) 

^ - 3A0 

which was obtained by integrating the pd (^) work over the above 

r 

interval. The energy of the "pop" Ep 0 p is specified .to be 4% of 
the total chamber energy. 

The calculation of "pops" or local high pressure regions 
introduced new difficulties in the annular calculation. As is 
indicated from Figure 3.15, the maximum non-dimensional pressure 
is 19.38 (or almost 6000 psia) at the center of the pop. The pop 
was localized to two increments in the axial, direction near the 
injector-face; the tangential increment is specified from 
Equation (4.18). It was found that the difference scheme (as 
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given in Reference 1) was unable to carry out the transient phase 
of the calculation given the above initial conditions. The cal- 
culation quickly became unstable after a few cycles of computation. 
A multistep smoothing operator was introduced into the calculation 
(after Lapidus , see Richtmyer and Morton, Academic Press). It is 
a third order operator so that in the smooth parts of the flow 
field, the order of accuracy of the calculation is preserved. 

The smoothing operator is a two step operator in the same 
way that the difference equations are two step schemes. Let D_ 
denote the following backward difference operator 

D - w j+l,k = w j+l,k" W j,k 
Then define 

»j,k = w j,k + Y D - * l5 u j+i,kl£ M j+i,k > (4 ' 19a) 

where u is the -velocity in the j direction and Xj = At/A j , Aj 
the space step in the- j direction. The constant' k = 0 ."5 . Then 
define 

Wj,k = Wj,k + V D - ( |Dv jjk+1 |D_W jik+1 } (4.19b) 

where D_W^ ^ = Wj here and Xj, = At/A k , A^ the space step 

in the k direction. The velocity in the k direction is v. The 
quantities on the right hand side of Equation (4.19b) are obtained 
by sweeping through the mesh using Equation (4.19a). The constant 
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k - 0.5 in Equation (4.19b). The value of W is taken to be the 
final smoothed results to be used as the starting data in the next 
cycle of the computation. It is clear that Equations (4.19a) and 
(4.19b) are third order differences and will vanish quickly where 
the flow is smooth.' Only where the flow undergoes rapid variation 
will this artificial viscosity make a contribution. 

For the last two calculations described 'below, Equations (4.19a) 
and (4.19b) were used each cycle for the first fifty cycles. 

The initial conditions corresponding to the "pop" calculation 
are given in Figures (3.15) and (3.16)' while the transient resulting 
from the initial disturbance is given in one hundred cycle incre- 
ments in Figures (3.17) to. (3. 22).. -Unfortunately the printouts 
are too far 'apart to follow the initial transient motion, however, 
■since there is no energy addition one observes that the maximum 
chamber pressure undergoes a uniform decay out to about 2.1 milli- 
seconds. It is anticipated that future runs will result in more 
.closely spaced snapshots. 

The same initial data, used in the above calculation, was the 
starting point for a reacting flow problem. The only difference 
between this case and the above is that mass and energy addition, 
as prescribed by the modified Godsave analysis, was turned on. 

As stated Figures (3.15) and (3.16) give the initial distribution 
of pressure and velocity. Figure (3.23) shows the pressure field 
after fifty cycles or .23 milliseconds. The calculation stopped 
at 99 cycles, just before the next snapshot. This was the first 
time this case was run so that comments will be reserved until 
more results are obtained. 
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APPENDIX A 


Computer Program Descriptions 
Pancake and Annular Motors' 

This section describes the information necessary to prepare 
input data cards for programs COMB and TRDL which are used to 
compute numerical solutions to the pancake model and annular model 
of combustion in a rocket motor. The equations for these models 
are described in the previous sections and in Reference (1) . In 
addition, listings of both computer programs are included. A 
listing os a special version of COMB that was written for a bomb 
blast with center at an arbitrary point in the chamber is also 
included. 
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I. Description of the Computer Programs 

The basic logic of the computer programs is described in 
Reference (1) . This section describes the changes that were made 
in those programs. For the pancake motor the plotting routines 
were removed and made into a separate program COMPLT. This was 
done because higher priority is given to running programs using 
less core memory and thus more computer runs could be made per 
day. It is also now possible to edit the plotted output. The 
program puts information to be plotted on tape 2 which is then 
processed by program COMPLT. The main program was converted to 
a subroutine COMB and a new main program COMBM is used to call 
this subroutine. This allows the use of I mode binary decks 
which are easier to handle and require less compilation time. 

The main program cannot be in I mode binary. The subroutine 
which calculates initial conditions in terms of Bessel functions 
BESFCT was rewritten in a much simpler form to allow changes in 
these conditions to be more easily made. 

In both the pancake and annular programs the term 4 H r in the 
energy subroutine PHIDOTV was changed from the constant 12,400 
Btu/lbm to a function of temperature using the following table. 
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T(°R) 

AK-r (Btu/lbm) 

536.4 

8150 

1800 

7-540 

2700 

6970 

3600 

6300 

4500 

5620 

5800 

4900 

6300 

4160 

7200 

3380 

8100 

2580 

9000 

1860 

9900 

1010 

10800 

225 


The annular motor programs dimension were changed to allow, 
for a finer mesh and better accuracy. Also, the subroutine to 
evaluate F (W) , G (*) and S (ft) were rewritten as two subroutines, 
VECTR and TMPVCT, respectively. In this way many quantities 
which were calculated separately in two or all three subroutines 
are now calculated only once. 
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There are basically two types of input data, integer and 
decimal. An integer is a number without a decimal point which 
must be right adjusted in its field. A decimal is a number with 
a decimal point which may be followed by an exponent of the form 
E±n. The ±n represents the power of 10 by which the number is to 
be multiplied and n may consist of up to three digits. The + may 
be omitted if n is positive and the E need not appear if either + 
or - is present. A description of the necessary input cards for 
both programs follows : 

Card Columns Type Description 

1 1-5 Integer <0 end of input deck. 

=0 find starting conditions on tape 1. 

>0 generate starting conditions. 

6-10 Integer =0 do not save conditions on tape 3. 

=n>0 save every nth cycle on tape 3. 

2 1-40 Any alphameric information to be 

printed at beginning of plots . 

3 1-5 Integer Total number ,of mesh points on each 

ray including center point and re- 
flection point at boundary or total 
number of z mesh points . 

6-10 Integer Total number of rays or 6 mesh points 
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Card Columns Type Description 

4 1-5 Integer Total number of cycles for case. 

6-10 Integer Number of cycles between edited 

printouts . 

11-15 Integer Number of cycles between plots of 

pressure, density and vector fields. 

16-20 Integer =0 no printout of W. 

f^O printout of entire W vector 
whenever edited printout appears . 

21-25 Integer Used in annular program 

=0 do not smooth solution 
7^0 smooth solution 

The following fields on card 4 are not used in the annular program. 

21-25 Integer =0 no plot of linearized solution. 

plot of solution of linearized 
equations whenever plots of non-linear 
equation obtained. 

26-30 Integer =^0 plot tangential pressure dis- 

tribution every n cycles. 

=0 no plot. 

31-35 Integer Value of radius at which tangential 

pressure plot to be made. This- is 
given by mesh point number from 2 
for first row to 1 less than the 
number on card 3 columns 1-5 for 
the boundary. 
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Card 

Columns 

T YP e 

.Description 

4 

36-40 

Integer 

Number of cycles between streakline 
plots of 'particle' moving in r-0 
plane-. 


41-45 

Integer 

Number of cycles between points 
retained for streakline plot. 

5 

1-10 

Decimal 

: Safety factor for time stepsize. 


11-20 

Decimal . 

Coefficient a in equation for nozzle 
shape in annular program. . •Not used 
in pancake program. 

The 

following 

fields are not 

used in the annular program. 


21-30 

Decimal 

t^O— -factor to control magnitude of 
simple forcing function. 

=0 use droplet evaporation forcing 
function. 


31-40 

Decimal 

r coordinate' of ' particle' <- to be 
tracked . 


41-50 

Decimal 

0 coordinate of ' particle j • to be 
tracked . 


51 t 60 

Decimal 

Number of droplets per unit volume 

6 

1-14 

Decimal 

Specific heat ration cp/cv = y 


15-28 

Decimal 

.Pressure in cylinder- in, psi. . 


29-42 

Decimal. 

Maximum amplitude of, a pressure- 


disturbance in psi. Not used -in 
annular program. 
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Card Columns 


6 43-56 Decimal Duration of initial bomb blast in 

millisec. Not used in annular 
program. 

57-66| Decimal Chamber radius in feet. 

7 1-14 Decimal Molecular weight of fluid in cylinder. 

15-28 Decimal Stagnation temperature. Initial 

density in bomb blast version. 

29-42 Decimal Zero of derivative of Bessel function 

used in initialization at pancake 
motor. Used in annular motor as 
option. 

=0 classical solution used for initial 
condition. 

^ "pop" used for initial condition. 

43-56 Decimal Number of droplets per unit volume. 

Not used in pancake motor. 

In the annular program a set of cards determining the steady 
state solution vector V are inserted here. There is one card for 
each z mesh point with the four components of the vector punched 
on the card in four decimal fields of 15 columns each. 

The bomb blast version of the pancake motor has the punched 
output of the similarity solution program placed here. 

The entire sequence of cards may be repeated in order to run 
several different cases. However, no more than one case should 
use an input tape or an output tape. 
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III. Description of Output 


The printed output consists first of various input and cal- 
culated values that remain constant throughout the program. 
Properties of the flow field, are printed along the rays 6=0;, ‘ tt, 
u/2 and 3 tt/ 2... These are -the density,, radial velocity , tangential 
velocity, internal energy, pressure and Mach number. If, printout 
of the entire W vector is requested these values are printed in 
the order of row of constant radius . 

In .the contour plots, where lines of constant pressure and 
density are given, each contour is marked by a symbol. At the 
right of the plot the value of the pressure or density at each 
contour level is printed next to the appropriate symbol. For the 
annular motor the vertical axis represents 8 and the horizontal 
axis represents values of z. The plots of the moving particle 
are in the (x-y) coordinate’ system. If the plot is given is sec- 
tions over the entire run, the point where a plot ended is used as 
the . starting point of the next plot so that a continuous' plot is 
obtained. However, since the program that does the plotting 
automatically sets the scale according to the range of the data 
to. be plotted, the various sections of the .plot may have different 
scales . 


149 



norm,- 


Appendix B 

PROGRAM COMBMC I NoUT-»OUTPUT ♦ TAPE1 * TAPE3 *TAPE5=INPUT ♦TAPE6=0UTPUT * 
1TAPE2 ) 

COMMON PR0 PTY*GAmMA3 »QAMMA1 » GAMMA'* DELR *DELO*PO *PMAX» PR* ER»TAU» IMAX 
1,JMAX,T,DTDR*DTDo.DELT»P*AO*ROO»NCYCMX»R 

DIMENSION PROPTYf 12*36*4) 


CALL COMB 

STOP 

END 

SUBROUTINE COMB 

c COMBOOOl 

C*******#*********#****^*#**********-^***** ************************** **CO M 3000 2 
C TIME DEPENDENT EQUATIONS OF HYDRODYNAMICS .CoM+0003 

r ***#**********^***********-***-*-**********.*******************************C OM 2 0 0 0 4 
**-*#4Hfr#******-K-******* # *#***********************************************C 0 M B 000 5 
SOLUTION RESTRICTED TO THE TRANSVERSE PLANE IN CYLINDRICAL COMB0006 

COORDINATES - • COMBOOO 

FINITE DIFFERENCE APPROXIMATION . LAX WENDROFF TWO STEP. COMB0008 

C BURSTEIN VARIATION ... C0MB0009 

(-**** **** ****#***•***#•)<• -****•*•* •fr*********-****-?-* ************************#*tf#cOMgOOiO 
c ***tt**#*****##*.9Ht**********#*******-************************************cU M 200i 1 


I START 

I MAX 

JMAX 

NCYCMX 

NNPCMX 

FUDG 


*************************** ********** 

INPUT PARAMETERS IN MAIN- ROUTINE 
^ — — — — ^*** — — — 

IF .EQ. 11111 NEW CASE 

' IF ,EQ. OOOOO CONTINUATION OF PREVIOUS CALCULATION 
MAX NUMBER OF MESH POINTS ON A RADIUS INCLUDING ONE 

point for the boundary condition 

MAX NUMBER OF RAYS * 

TOTAL NUMBER OF TIME STEPS FOR THE PRESENT 
INTEGRATION ‘ ’ 

NUMBER of TIME INTEGRATIONS 'BETWEEN PICTURES 
SAFETY FACTOR FOR AUGMENTATION OF LINEAR 
STABILITY ANALYSIS 
INPUT PARAMETERS IN OTHER ROUTINES 


GAMMA RATIO OF SPECIFIC HEATS 

PO UNPERTURBED PRESSURE 

PMAX AMPLITUDE OF PRESSURE PERTURBATION 

TAU DURATION OF PRESSURE PERTURBATION 

RMAX RADIUS OF CYLINDER 

XM MOLfCULAR WEIGHT OF GAS 

TO . GAS STAGNATION TEMPERATURE 

<-**** **********4********************************************************C°Mg003 4 

C _ COMB0035 

C SCALING RULES. ..SEE SUB. INITIL COMB0036 

C _ COMB003 


COMB0012 

COMBOQ13 

C0MB001 4 

C0MB001 5 

COMB 001 6 

C0MB001 

COMB0018 

C0MB0019 

COMB0020 

C0MB002 1 

C0MB0022 

C0MB0023 

C0MB0024 

COMB0025 

COMB0026 

COMB002 

COMB0028 

COM20029 

C0MB0030 

COMB003 1 

COMB0032 

COMB0033 


572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 
5 84 

585 

586 

587 

588 

589 
59 Q 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 

603 

604 

605 

606 

607 

608 

609 

610 
611 
612 

613 

614 

615 

616 
617 
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c -*********-*"»******-)HH(.* # -JHH ( ***.)MHHMHHHMH(.*********-»*******- l HH l .**#********** c .O M gQQ^ ^ 

c IN PUT TAPES COMB0039 


C COMBOO4O 

C BINARY TAPE 1 INPUT TAPE CONTAINING INFORMATION FOR THE COMB0041 

C CONTINUATION OF THE CALCULATION COMB0042 

C OUT pUT TAPES C0MB0043 

C C0MB0044 

C BINARY TAPE 3 OUTPUT TAPE CONTAINS INFORMATION FOR THE COMB004 

C CONTINUATION OF COMPUTATION ' COMB0048 

*^****************Ht******»******Ht**#********1HI^****Ht-****-)HHt*******Ht*** c QM B 0049 
*****************************************Hfr*************;***Ht*****'***,** (-OMftOGsO 
********^*********************************************»***#**.****** COMBQG51 
********#******** w *********Ht*****************#********#***-***-s.* CQMBOO 52 
♦•k-***********^*************************************** (;0 M2OO53 

************************************* COMBGQ54 

*****■*-#■*•*■•*■**•* COMBO055 

C0MB0056 
COMB005 
COM80058 

MAIN COMB0059 

C *#■•#■■*"*■***■* EXECUTIVE dROGRAM WHICH CONTROLS INPUT »OUTPUT AND CbM8006'0 


C********* LOGICAL FLOW- FOR THE COMPUTATION - *Ht**»*******************c0MB0061 

COMMON PROPT Y » GA^-MA3 *GAMMA1 , GAMMA »DELR * DELO ♦ PO » PMAX » PR . ER ♦ TAU * IMAXCOMB0062 
1 »JMAX*T,DTDR*DTDo*DELT»P»AO*RO0*NCYCMX*R 
DIMENSION PROPTY (12*36*4) - - 

COMMON/LE/ FJMAX, IMAXM1 »RAD( 12) *OVRLAY ( 12 * 36 ♦ 12 ) *OVRPRM( 16 *36 t 12) 

COMMOM/NCPLOT/NTcYGL* ISTART»RC*OC 

COMMON/MIDDLE/VMaG,VDIR 

COMMON/PRTOPT/INTPNT 

COMMON /TLDR/TTLDp 

COMMON/EDOT/EKF . ’ ‘ 

COMMON/PHI P/DLN*EN»V»£KFCT,DmF»DmFT»ELFZ,CPR3»FPHIFS*DmP INF »DMRINF 
1 * CRE * CAP 

COMMON/QQXM/XM »T 0 »QKR 
COMMON/ JPPT/JP ,PTCRD 
DIMENSION PT CRD ( 5O1 *2 ) 

DATA ZERO»ONE/0. o»1.0/ 

REWIND 2 
5 CONTINUE 
NCLCM=0 
NTCYCL=0 
NCYCLE=0 
NPICTR=0 
NSAVE=0 
NPNTC=0 
JP = 1 


618 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 
660' 
661 
662 
663 
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TTLDR=0.0 

T=0.0 

nprplt=i 


DLN=2.0E^4 

PHI=1.0 


V=120»0 


FS=. 695652174 

READ ( 5,666) ISTART* I SAVE 

IF ( ISTART »LT .0 ) r ,0 TO 186 

READ ( 5 ,668 J.RAD ( 2 ) ,RAD<3 )-,RAD(4) 

660 FORMAT ( 4A 10 ) 

RAD f 1 ) =10Hl . 

RAD C 5 ) =0 *0 

WR I TE ( 6 »668 ) RAD ( 1 ) , RAD < 2 ) » R AD ( 3 ) ,RAD<4) 

RAD ( 1 ) =1 OHS 5 490 1 

WRITE(2> RAD(l)»t?AD(2) ,RAD(3) »RAD(4) 

READ(5,666) IMAX, jMAX 
FJMAX=JMAX 

IMAXM1=IMAX-1 ‘ , C0MB010 1 


C 


READ < 5,666)NCYCMx»NNPCMX,KALKOM, INTPNT, IBSPLT,-IPRPLT,JRR, IPTPLT.L 

666 FORMAT (915) 

WRITE(6»6066 ) NCYrMX »NNPCMX ' 

6066 FORMAT ( 39H0 ToTA L NUMBER OF CYCLES FOR, THIS CASE=I4*4X»34HNUMBER 
2F CYCLFS BETWEEN PICTURES=I47//) 

READt 5,667 )FUDG»D*cKFCT,RC»OC>EN 
PT CRD (1*1) =RC 
FT CRD (1,2) =0C 

667 FORMAT ( 7E10 • 7 ) 

INITIALIZE MESH AnD FIND DELT FOR CONVErG. AND STABILITY 
CALL INITIL 

I F ( ISTART. NE.O) CALL CHARGE 
CALL CONVRG(FUDG) 

EKFS=EKFCT*EKF/DpLT 
IF(EKFCT.EQ.O.O) EKrS=l,0 
DMFT=EN*R/(ROO*An) 


COMB007 6 
O 

COM80079 


COMBQ083 

COMB0084 

COMB0086 


DMF=DMFT*778.0*3?.17/(A0*AO) 

PHITFS=PHI*FS 


EL FZ =540.0+ 178, 2/PHITFS 
CPR3 = 0. 276*0.591 
FPhIFS=1.0+1.0/PhI'TFS 
DMPINF=P0*GAMMA*gAMMA1 
DMR I NF= 144. 0*XM/ 1545.0 
CP«E=DLN*AO*ROO*2*. 66432/2. 5E-5 
CAP= Cl. 0/300.0) **,0108 
NPNTC=MQD ( NTCYCL , I P.TPLT ) 

757 CONTINUE 


664 

665 

666 

667 

668 

669 

670 

671 
6 72 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 
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r 


C0MB008 


PRINT INITIAL FIELD 
CALL SECOND (RTM) 

CALL PRTOUT(RTm) 

I F ( I'START )70,80.t0 
70 CONTINUE 

WRITE! 2 ) ZERO»T*mTcYCL* AO*R * JPR 

WR I T E'( 2 ) VmaG*VDtR»TTlDR*GAMMA»PO»ROO» IMAX * JMAX .NPRPLT, 
K ( (PROPTY! I.J.K) ,K=1*4) » J = 1 , JMAX ) .1=1* I MAX) 

80 NCYCLE=NCYCLE+1 
NTCYCL=NT CYCL+1 
NPNTC=NPNTC+1 
T=T+DELT 

CALL MVPNT!RC*OCj 
IF!MOD( NPNTC*L) *nE.0> GO TO 801 
JP=JP+1 

PT CRD ( JP * 1 ) =RC 
PTCRD! JP»2)=0C 
801 CONTINUE 
EKF=EKFS 
CALL FRSTRO 
DO 500 I =2 * IMAX 
DO 500 J=1 * JMAX 
CALL VECTFR(I*J»oVRLAY(l*J.in 
CALL VECTRGfl »J*oVRLAY{5*J* I n 
CALL VECTrS ( I * j *oVplAY ( 9 * J ♦ I ) ) 

500 CONTINUE 

C COMPUTE WIThDELT) FOR FIRST ROW 

DO 501 1=2*1 MAXMl 
RD=RAD( I )+0.5 *DElR 
11 = 1+1 

DO 501 J=1 , JMAX 

CALL QUAD1 ( I * J .OVRPRM ( 1 ♦ J »,1 1 } * I ) ■ 

CALL TEMPFW ( OVRPoM ( 1 » J * 1 1 ) .OVRPRM! 5 * J » 1 1 ) * I »J»1) 

CALL TEMPGW(OVRPpM(1 ,J* ID .OVRPRM ( 9 * J * 1 1 5 ) 

CALL TEMPSW(OVRPpM(l *J»ID .OVRPRM ( 13 » J * 1 1 ) ) 

OVRPRM ( 13*J*!l)=pD*OVRPRM( 13* J* 111 
OVRPRM! 16 * J » 1 1 ) =pD*OVRPRM { 16 ♦ J* 1 1 ] 

501 CONTINUE 

C COMPUTE W!T+DELT)AT INTERIOR POINTS 
CALL GENPT( 3 . IMAxMD 
C COMPLETE MESH CaLC AT 1=1, J=1 

CALL CENTER 
CALL CHARGE 
• NCLCM=NCLCM+1 
NPICTR=NPICTR+1 
NSAVE=NS AVE+1 


COMB0105 


COMBOl 50 
C0MB0162 


710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 
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c 


NOISE SUPPRESSOp 

COMB0163 

756 



00 50 I -1 » IMAX 

COMB0164 

757 



DO 50 J=1 * JMAX 

COMB0165 

758 



IFCl.EQ.l.AND.J.pT.l) GO TO 50 

COMB0166 

759 

w 


TEST FOR NEGATIVE DENSITY 

COMB016 

760 



IF (PROPTY ( I » J » 1 ) . LE, 0 • ) GO TO 181 

COMBO 168 

761 



DO 51 K = 2,3 

COMB0169 

762 

c 


ELIMINATE SPURloUS VELOCITIES 

COMB0170 

763 



IFCABS (PROPTYC I ,J,K) ).LE.1.E-14) PROP TY U * J * «; ) =0. 


764 


51 

continue 

C0MB0172 

765 


50 

CONTINUE 


766 

c 


FIND NEW STABILITY NUMBER 

C0MB0158 

767 



CALL CONVRGCFUDG) 

C0MB0159 

768 


81 

CONTINUE 


769 



IF (NPNTC-IPTPLT) *20*310,310 


770 


810 

CONTINUE 


771 



WRITEC2) ONE,T,NTCYCL,AO»R,JP 


772 



WRITE (2 ) (PTCRDC I ,1) »PTCRDC I ,2) * I=1»JP) 


773 



NPNTC=0 


774 



JP = 1 


775 



PT CRD (1,1 ) =RC 


776 



PTCRDC 1*2 >=OC 


777 


8 20 

CONTINUE 


778 



IF CNCLCM-KALKOM >89,38,38 


779 


88 

CONTINUE 


780 



WRITE(6*606)T,NTrYCL 


781 


606 

FORMATC 3X11HTOTAL TIME=E14.7 »3X17HNUMBER OF CYCLES=I4) 

C0MB0186 

782 



NCLCM=0 


783 



IFC IPRPLT.NE.O) nPRPLT=MOD(NCYCLE»IPRPLT) 


784 



WRITEC 2) ZERO»T*mTcYCL*AO,R,JPR 


785 



WR I TE ( 2 ) VMAG » VDt R ,TTLDR * GAMMA »PO»ROO> IMAX , JMAX »NPRPLT , 


786 


1C C ( PROPTY ( I * J • K ) ,K=1*4) »J=1 tJMAX) ♦£ = !» IMAJO 


787 


89 

CONTINUE 


788 

c 


TEST TO SEE IF FINISHED 

C0MB0174 

789 



IF(NCYCLE-NCYCMX)890,91,91 


790 


890 

CONTINUE 


791 

c 


TEST TO SEE IF pRINT TIME AFFIRMATIVE 

COMB0176 

792 



IFCNPICTR-NNPCMXj 901 ,90,90 


793 


90 

CONTINUE 


794 

c 


PRINT DISPLAY OF FLOW FIELD ALONG THE RAYS 0 »p 1/2 *P I *3*PI /2 

COMB0180 

795 



CALL SECOND CRTM) 


796 



CALL PRTOUTCRTM) 


797 

c 


RESTART PRINT CyCLE 

COMB018 

798 



NP I CTR=0 


799 


901 

IFC ISAVE.EO.O.OR.NSAVE.LT. ISAVE) GO TO 80 


800 


902 

CONTINUE 


801 


154 



91 


181 

6666 


707 


182 


COMB0189 


C0MB019 

FCOMBC198 


COMB0200 


COMB0201 


R f- W I NO 3 

WR I TE ( 3 ) ( { (PROPTv( I »J »(<;)* K = 1 »4 ) ♦ J=1 » JMAX ) » I = 1 » IMAX ) 
WRlTE(3)TtNTCYCL,VMAG»VDIRtTTLDR*RC»0C - ■ 

WRITE (3) JP:» (pTCpDU * 1 •) ♦pTCROM »2 ).* 1=1 *JP> , 

NSAVE=0 
GO TO 80 
CONTINUE 

CALL SECOND <RTM> 

CALL PRTOUT(RTM) 

IF( ISAVE) 182 »5*1«2 

WR I TE ( 6 »6666 ) „ T Tllr _ 

FORMAT! lHl»20Xt6?H********** ERROR ABORT - NEG. DENSITY IN THE 
1 t cLn **********/, i X.fiTH*******************************************^^ 0199 
2 ******************** ) 

WRITE ( 6 *707 ) ( I * J, ( PRCPTY ( I • JtK) *K=1 *4) * 1=1* I MAX ) 

FORMAT! lX»2 I 4* 4E 7 3.7) 

GO-- TO 184 
CONTINUE 

REWIND. 3 . . • 

WRITE!?)" . ( ( (dROPTY ( I * J»K) »K=1 *4) * J = 1 » JMAX ) » 1 = 1 »IMAX ) 

WRlTE(3)T.NTCYCL.VMAGiVDIR*TTLDR.RC.0C 

WRITE.! 3) JP» (pTCpD! 1*1 ) .PTCRD! 1*2) »1=1*JP> 

184 GO TO 5 
136 CONTINUE . - 

ENDFILE 2 
END FILE 3 
STOP 
END 

SUBROUTINE 
C********* - SETS 
(2********* 

C 
C 
C 

***** 


INITIl 
UP THE 


C0MB0209 

COMB0465 

COMB0466 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


INITIAL DATA IN THE ARRAY PROPTY AFTER 
COMPLETING The NORMALIZATION FROM INPUT DATA **************C0MB046 
******** | **»********************-*-k-*******************************COMb 04£, 8 
************************************* ************ ****************c0Mb0 46 9 
*# # ***#******#***.************************************************C0 M B0470 
****** SCALING RULES ************* *C0MB0471 

' COMB 047 2 
COMB0473 
COMB0474 
C0MB0475 


************ 


*-******************* 

EQ1*(TO/RHOO) ,»eQ 2*(TO/< RHOO*AO) ) ♦»EQ3*(‘TO/!RH00*A0) ) »» 
EQ4*( TO/(RHOO*AO**2 > > t » » »TO= ( RMAX/AO) 
*'************************** 


* * * * * 


********** 
********** 
********** 
********** 
********** 
^********* 
******** 


TIME IS SCALED BY ...THE REF TIME SCALE **********COMB0476 
DISTANCE IS SCALED BY ... COMBUST ION CHAMBER RAD I US***COMB047 
VELOCITY IS SCALED- BY., .REF SOUND SPEED ********** COMB047 8 

DENSITY IS SCALED BY ». .REFERENCE DENS I TY****** ****** COMB 047 9 
PRESSURE IS SCALED BY. ..REF SOUND SpEED**2*REF , COMB0480 

DENS i TY***************** ************************** **COM B Q481 
******************* ********* *******************c0Mg048 2 


802 

803 

804 

805 

806 

807 

808 

809 

810 
811 
812 

813 

814 

815 

816 

817 

818 

819 

820 
821 
822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 
. 840 

841 

842 

843 

844 

845 

846 

847 
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nnnnnn nnnnn r\n 


************************* #**####**^*****##^^^#*********r******{' ■****£ 3 

****** ***************************************#****,f*******#****f-*COMB048 4 
COMMON PR0 PTY.GAmMA 3»GAMMAJ , GAMMA *DELR »p.ELO » PO ♦. PMAX » PR» ER ♦ TAU ♦ IMA£C0MB048 5 
1 »JMAX»T,DTDR*DTDo>DT*P »ao»roo»ncycmx*rmax , 

DIMENSION PROPTY ( 12»36»4I 

COMMON/LE/ FJMAX»-IMAXM1»RAD< 12) »OVRLAY (12»36, *12) ♦OVRPRMl 16»3£»12 ) 

COMMON/ CNTRE/COSTH ( 36 ) *SInTH(36> >THTA(36) 

COMMON/MIDDLE/VMaG,VDIR 

COMMON/NCPLOT/NTcYCL * ISTART »RC *OC 

common/edot/ekf 

COMMON/TLDR/TTLDr 

common/qqxm/ xm » T n ♦ OKR 

common/ jppt/jp»ptcrd 

DIMENSION PTCRD(«i0l.2) 

DATA PI ♦TWOP 1/3. 14159265 ,6* 283 18 531/ 

READ (5. 5) GAMMA, PO*PMAX»TAU»RMAX C0MB0490 

WRITE(6*65) ■ Q0MB0491 

65 FORMAT ( 4X » 5HGAMMA * 5X » 16HCH AMBER PRESSURE *2X , 14HPULSE PRESSURE, 4X »1COMB0492 
1 . 5H COMB0493 

2 PULSE DURATION, 4X» COMB0494 

3 liHCHAMBER RADI US/20X , 3HPSI , 15X ? 3HPSI » 15X , 3HSEC , 1 5XC0MB0495 

2 , 2HFT / / ) C0MB0496 

******************************** *CQMB049 


4 


68 


76 


7 

5 


****** BOMB PULSE PRESSURE AND TIME DURATION ARE ONLY C0MB0498 
****** TO BE REFERENCED WHEN INITIAL CONDITIONS ARE C0MB0499 
* * * * * * FOR A PULSE TYPE CALCULATION *********** C0MB0500 


******************************** 
WR I TE ( 6 , 4 1 GAMMA , PO » PM AX , TAU » RM AX 

FORMAT! 1X,2E14.7,E18.7,E19.7»FZ2o4///) 

READ (5,5) XM,TO»oKR 
WR I TE ! 6 » 68 ) 

FORMAT! 3X,lOHMOL We I GHT , 3X » 19HCHAM8ER TEMPERATURE//) 

WR I T E C 6 » 5 ) XM * T 0 
WR ITE ( 6 » 76 ) 

FORMAT! 1H ///) 

GAMMA SPECIFIC HEAT RATIO 
PO UNPERTURBED PRESSURE 

PMAX AMPLITUDE OF PRESSURE PERTURBATION 
TAU IS DURATION OF PERT, 

IMAX, JMAX MESH DIMENSIONS 

XM MOLECULAR WfIGHT, TO chamber TEMPERATURE 
FORMAT ( 214 ) 

FORMAT (4E14,7»2Fl 0.4) 

P0 = PO 

RO0= ! P0*144. ) /! 1 i 545 , /XM ) *T0 ) 

AO^SQRT ( GAMMA*3?» 17*P0*144 , /ROO ) 


*COMb0501 

C0MB0502 

COMB0503 

COMB0505 

COMB0506 

C0MB050 

COMB0508 

COMBO509 

C0MB0510 

COMB051 1 

COMB0512 

COMB0513 

COMB0515 

C0MB0516 

COMB051 

COMB0519 

C0MB0520 

COMB052I 


848 

849 

850 

851 

852 

853 
8 54 

855 

856 

857 

858 

859 

860 
861 
862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 
8 78 

879 

880 
881 
882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 
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RHO=RO/ROO=1. 

RH0=1« 

TO=RMAX/AO 
XTO=T 0*1000 • 

EQ2=ROO»AO/TO 
p=p0*144»*32 . 17/ < RMAX*£Q2 ) 


C0MB0522 
C0MB0523 
COM80524 
C0MS052 5 
COMB0526 
C0MB052 


DELR=1.0/FLOAT( ImAX-2 ) 

DELO=2 # *P I /F JMAX COMB0530 

GAMMA3=GAMMA-3. rOMR0531 

GAMMA 1= GAMMA- 1 • rnMRn632 

PR=PMAX/PO roMRP533 

ER=PR/GAMMA1 rnMRn534 

V)R I TE ( 6 > 67 ) C0M30534 

67 FORMAK 1X»16HREDuCED PRESSURE » 2X » 15HREF SOUND SPEED » 2X » 11HREF D&NSCOMB053 5 

1ITY.6X.7HDELTA R , 7X . 1 IHDElTA THETA. 4X»43HPRESSURE AND INTERNAL ENECOMB0536 

2RGY RATIO OF PULSE/ / ' SSSSScL 

WR I TE ( 6 » 6 ) P* AO.RO0,DELR»DELO*PR*ER»XTO ; COMB0538 

6 FORMAK7E16.7///16H REF TIME SCALE=F15 • 5/3X » 8HMI LLISEC/ // ) ' C0MB053.9 

WR I T r { * >566) COMBO 540 

fORMaTM X *1 1 7 H***********************************'***** END °F IN 1 TCOMBO 54 I 

' T I T 7 aTtON PhaSf *************************************' IHHf '*****'***'* /, C OM S0542 
n« c. COMB0543 

2 /////) . 

ELN=TWOP I /F JMAX 


RAD( 1) =0.0 
DO 501 I =2 » I MAX 
-501 RADC I)=RAD( 1-1 )+DELR 
DO 510 J=1 » JMAX 


TH= J— L 


TH=TH*DELO 
THTAl J)=TH 
COSTHt J)=COS C TH ) 


510 

505 


506 
5 04 


SINTH( J> =SIN (TH) 

EKF=P/GAMMA1 

I F ( ISTART ) 506* 5 O 5 »506 

CONTINUE 

READ ( 1 ) < < ( dROPTY ( I » J > K ) » K = 1 »4 1 * J = 1 * JM AX ) * 1 = 1 » I MAX) 

read a ) t*ntcy.cl,vmag»vdir>ttldr»rc*oc 
READ ( 1 ) JP. (PTCpDt I »1 )-»PTCRD( I »2 J * 1 = 1 *OP) 

RETURN 
CONTINUE 
CALL BESFCT 
RETURN 
END 

SUBROUTINE BESFCT 

COMMON PROPTY »GAmMA 3 » GAMMA 1 » GAMMA »DELR »DEL0 »PO »PMAX » PR»ER » TAU» IMAX 
i* jmax.t,dtdr»dtd 0 »delt *p,ao*roo»ncycmx»r 


COMB0562 


894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 
932 

934 

935 

936 
931 
93£ 
93S 
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DIMENSION PROPTY ( 12 » 36 *4 ) 940 

COMMON/LE/ FJMAX, IMAXM1»RAD,{ 12) »OVRlAY ( 12 »36 ♦ 12 ) »OVRPRMU6*36»-lg,) 941 

COMMON/M I DDLE/VMaG*VD I R • • 942 

COMMON/QGXM/XM*To»QKR 943 

COMMON/ CnTrE/CoStH ( 36 ) *51 NTH ( 3$ ) * THTA < 36) 944 

DIMENSION N8SFN(3) »BSEN(3) 943 

NBSFN ( 1 ) =1 948 

AA=1. 84118378 947 

CALL BESSEL(1*AA,1,NBSFN»8SFN) 948 

EPS= ( PMAX-PO ) / t Po*GAMMA*BSFN ( 1 ) ) 949 

HFPS=0.5»EPS 950 

VMAG=ABS ( HEPS ) 951 

VDIR=1. 57079633 952 

GAMINV=1. O/GAMMA 953 

PDM=GAMINV/GAMMAi 954 

PROPTY ( l»l»l)=l«n 95 5 

PROPTY (l*l*2)=0,o 956 

PR0PTY( 1»1»3)=VMaG 957 

PROPTY! l»l*4)=PDw+0.5*VMAG*VMAO 958 

NBSFN ( l ) =2 959 

NBSFN I 2 ) =1 960 

NBSFN ( 3 ) =0 961 

DO 20 I =2 » IMAXM1 982 

BB=QK.R*RADU) 963 

CALL BESSEL (2» SB, 3»NBSFN »BSFN ) 964 

PP=EPS*BSFN<2> 9& 5 

VV=op/BB 966 

PP=GAMMA*PP 967 

UU=HEPS*(3SFN<3)-BSFN(in 968 

DO 20 J=1 * JMAX 969 

PRS=1 *0-PP#COSTH ( J ) 970 

PROPTY ( I *J»1 ) =PRS**GAMINV 971 

PROPTY ( I »J»2 )=PRoPTY( I . J*1)*UU*SINTH{ J) 972 

PROPTY ( I » J »3 ) =PRnPTY ( I * J » 1 ) *VV*C0STH U ) 973 

PROPTY ( I * J»4 ) =PDm*PRS+0. 5* { PROPTY ( I »J*2 )*PROPTY < I » J*2 )+ ' 974 

1 PROPTY ( I * J»3 )*PRoPTY ( 1 » J * 3 ) ) /PROPTY ( I * J» 1 ) 975 

20 CONTINUE 976 

RETURN . 977 

END 978 

SUBROUTINE BESSEl<N» 2 *NANS»NBSFN»BSFN) 979 

DIMENSION NBSFN (l)*F(200)»XC200)*p(200)*BSFN«U 980 

COMMON/L£/QQ( 12110) 981 

EQUIVALENCE (F*Qf)(600) ) » (X»QQ(800) ) * (P»QO< 1000) ) 982 

Y=2/2. 983 

IF CY)11. 271.11 984 

271 IF ( N ) 273 *272 * 273 985 
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272 BSFN < 1) =1. 986 

GO TO 274 987 

273 BSFN ( 1 ) =0 * 988 

274 I F ( NANS— 1 )90»90»?75 989 

275 DO 181 I =2 »NANS 990 

J=NBSFN(I) 991 

1F(J)276»277»276 992 

276 BSFN ( I)=0. 993 

GO TO 181 994 

277 BSFN { I ) =1 • 995 

181 CONTINUE 996 

GO TO 90 997 

11 M= «75*ABS ( Z ) +6 • 998 

NABS= IABS IN) 999 

NN = MAX0 ( NABS « 2*M ) 1000 

DO 10 1=1. NN 1001 

10 X(I)=Y/FLOAT (I) 1°°2 

A0=0 • 1003 

LL=NN 1004 

Al=Y*Y/FLOAT (LL*LL+LL) 1005 

IF(A1—1«E— 08)1.2.2 1°°6 

1 F(NN)~A1 1007 

GO TO 30 1008 

2 Bl=l • I 009 

LL=LL+1 1010 

C=Y*Y /FLOAT { LL*Ll+LL ) 1011 

B2 = Bl+C 1012 

FRAC=ABS ( C/B2 ) *A 1 1013 

I F ( FRAC-l.E-08 )1,3,3 1014 

3 LL=LL+1 101‘5 

6 C=Y*Y/FLOAT (LL*LL+LL) 1016 

A2=A1+C*A0 1017 

AB=C*B1 1018 

B0=B1 1019 

B1=B2 1020 

B2=B1+C*B0 1021 

FRAC=A8S- (AB/B2)*FRAC 102-2 

I F ( FRAC-1 »E— 08)4,5.5 1023 

4 F(NN)=A2/B1 ■ 102-4 

GO TO 30 1025 

5 LL=LL+1 1026 

A0=A 1 1027 

A1=A2 1028 

GO TO 6 .,, 1029 

30 NNM=NN-1 1030 

DO, f.0 nTIMES = 1»NnM 1031 
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KK=NN-NTIMES 1032 

40 F l KK. } =X ( KK) *X ( KK+1 ) / C 1#-F t KK+1 1 1 1°33 

IF C NABS ) 34*34,35 1034 

34 F'ZER0=1. 1035 

PCI) =PZERO*X ( 1 )/ { 1 «-F 1 1 ) ) 1036 

NP=2 1037 

GO TO 59 1038 

35 P ( NABS ) - 1 * 1039 

NM=NABS-1 1040 

DO 50 NTIMES=1. mM 1041 

KK=NASS~NTIMES 1042 

50 PCKK)=P(KK+1)*(1.-FCKK+1) )/X(KK+l) 1043 

PZr R c=P(l)*(i.-F{l) )/X(l) 1044 

51 NP=NAB3+1 1045 

59 DO 60 KK=NP *NN 1046 

60 P ( KK. ) =P t KX-1 )*X(kK)/(1.-F( KK ) ) 1047 

SUM=0. 1048 

DC 70 1=2 *NN » 2 1049 

70 SUM=P ( I ) +SUM 1030 

71 BSFNC 1)=1./ C2.*S(}M+pZ£R0) 1° 5 1 

73 IF<NANS~1 )9C*90»75 1052 

75 DO 81 1=2 »NANS 1053 

J= I ABS (NBSFN(I)) 1034 

1 F ( J ) 80,76*80 1055 

76 PSFN C I ) =PZERO*BSfN ( 1 > 1056 

GO TO 81 1057 

80 BSFN ( I ) =P ( J ) *BSFn ( 1 ) 1058 

31 CONTINUE 1059 

DO 100 1=1, NANS 1060 

IF CN3SFN(I> )101,100»100 1061 

101 IF (MOOCNBSFNC I) ,21 )102»100,102 1062 

102 BSFN ( I ) =-3SFN ( I ) 1063 

100 CONTINUE 1064 

90 RETURN 1065 

END 1066 

SUBROUTINE CONVRg ( FACTOR ) COMB0355 1067 

C********* COMPUTES A TIME INCREMENT TO BE USED IN DIFFERENCE EQUATIQN- COMBG356 1068 

c ********* BASED ON C.F.L. CONDITION #*ihwm»**ihh»*********#cOMb035 1069 

COMMON PR0PTY,GAmMA 3»GAMMA1 , GAMMA ,D^LR »DELO *P0 , PM AX ,PR,ER»TAU, IMAXC0MB0358 1070 
l,JMAX,T,DTDR,DTDo»DT,P»AO,ROO,NCYCMX*R 1071 

DIMENSION PR0PTY{12»36»4) . 1072 

COMMON/LE/ FJMAX, IMAXM1 ,RAD C 12 ) »OVRLAY <I,2»36»12) *OVRPRM ( 16»36*12) 1073 

DT=0, 3/(16. *.75M. 9445) COMB0364 1074 

DT=0. 6/ ( 16. *.75/3.9445 ) COMB0365 1075 

DT=DT*FACTOR C0MB0366 1076 

SQ=1./SQRT (2.) COMB036 1077 


16 p 




DO 1 1 = 2 » IMAXM1 


1078 


DO 1 J=1 » JMAX 

. C0MB0369 

1079 


IF( I .EQ.l.AND.J.pE.2>GO TO 1 

COMB0370 

1080 


VELSQR= ( PROPTY ( I »J*2 )**2+PROPTV( I , J , 3 ) **2 } /PROPTY ( I ♦ J» 1 )**2 

C0MB0371 

1081 


IF(VELSQR) 8,3,2 

COMB0372 

1082 

2 

BG = PROPTY ( I » J»4) /PROPTY (I * J » 1 ) -0 . 5*VELSQR 

COMB0373 

1083 


IF(BG) 8*7*7 

C0MB0374 

1084 

7 

DENOM=SQRT { GAMMa*GAMMA1*BG ) 

COMB0375 

1085 


TERM=SQ/(DENOM+S 0 RT tVELSORl) 


1086 


TERMO=TERM*FACTOp*DELO *RAD f I ) 


1087 


TERMR=TEPM*FACTOp*DELR 


1088 


dte=dt 


1089 


DT=AMIN1 <DT»TERMp,TERMO) 

COMB038O 

1090 


IF(DT-DTE) 150,8,8 


1091 

i 5C 

I T= I 

COMB0383 

1092 


JT = J' . ‘ 

-C0MBQ384 

1093 

8 

CONTINUE- 

COMB0385 

1094 

1 

CONTINUE ; 

COMB0386 

1095 


DTDR=DT/DELR 

COMB038 

1096 


DTDO=DT/DELO 

- COMB0388 

1097 


RETURN 

C0MB0392 

1098 


END 

- - COMB0393 

1099 


SUBROUTINE MVPNT ( RC»w», , 


1100 


COMMON PROPT Y»GAmMA3 » GAMMA 1 , GAMMA »DELR *DELO »PO*PMAX»PR»ER» TAU » 

IMAX 

1101 


l»JMAX»T*DTDR,DTDn*DT»P,AOtROO ,NCY 

■ 

1102 


DIMENSION PROPTY (12*36,4) 


1103 


COMMON/LE/ FJMAX, IMAXM1 »RADt 12) »OVRLAY ( 12 ,36 * 12 ) ,OVRPRM ( 16 ♦ 36 * 

12) 

1104 


COMMON/ CNTRE /CoS TH( 36 ) »SI NTH ( 36 ) » THTAI 36) 


1105 


DATA PI »TWCP 1/3. 141 59265 ,6.28318531/ 


1106 


I=INT(RC/DELR)+1 


1107 


IFU.EQ.l) 1=2 


1108 


J=INT(OC/DELO)+1 


1109 


IF(J.GT.JMAX) J=jMAX 


1110 


JP1=J+1 


1111 


IF ( JP1.GT.JMAX ) JP1=1 


1112 


Ul=PROPTY(I,J,2>/PROPTY(I,J,l) 


1113 


U2=PROPTY( I+l»J*?)/PROPTY< I+1»J»1) 


1114 


U3=PROPTY ( I * JP 1 , 2 ) /PROPTY ( I * JP 1 , 1 ) 


1115 


U4=PROPTY( I+l,JPi ,2) /PROPTY ( 1+1 »JP1»1) 


1116 


Vl=PROPTY( I ,J»3) /PROPTY ( I » J»1 ) 


1117 


V2=PROPTY ( I H,J*M /PROPTY! I + 1,J»1) 


1118 


V3=PROPTY( I, JP1»3) /PROPTY! I » JP1 , 1 ) 


1119 


V4= PROP TY ( 1+1, JP] ,3 ) /PROPTY { I+1,JP1,1) 


1120 


A= ( PC-RAD( I ) ) /DElR 


1121 


B= (OC-THTA( J ) )/DfLO 


1122 


C=A*B 


1123 
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U=U1+A*(U2-U1 >+B*(U3-Ul )+C* I U4-U3-U2+U1 ) 1124 

V=V1+A* (V2-V1 )+8*(V3-Vl )+C* I V4-V3-V2+V1 ) 1125 

OC=OC+V*DT/RC ' ' . 1126 

RC=RC+U*DT 1127 

IFIRC.GT. 1« ) Rr=l. 1128 

IFCRC.GE.O.) GO TO 10 1129 

RC=— RC 1130 

CC=OC+PI 1131 

10 CONTINUE 1132 

IF(OC.LT.O.O) OC=OC+TWOPI 1133 

IFIOC.GE.TWOPI I oC=OC-TWOPI 1134 

RETURN 1135 

END 1136 

SUBROUTINE FRSTRo 1137 

c********* COMPUTES Value OF W(T+DE(.T) ON THE CIRCLE R=DELR COMB0781 1138 

C********* the FIRST now OF NET POINTS CONTIGUOUS TO THE CENTER ******COMB0782 1139 

COMMON PROPTY , GAmMA 3 » GAMMA 1 , GAMMA * D.E LR * DELO » PO * PMAX » PR , ER * T AU> IMAXCOM8078 3 1140 

1,JmAX»T*DTDR*DTDo»DT»P»AO*ROO*NCYCmX»R . 1141 

DIMENSION PR0PTY (l2»36«4) 1142 

COMMON/LE/ FJMAX, IMAXM1*RAD( 12 ) *OVRLAY (12»36»12) tOVRPRMI 16 * 36 *12) 1143 

COMMON/CNTRE/COSTH(36) »SINTH(36) »THTA< 36) 1144 

COMMON/MIDDLE/VMAG.VDIR 1145 

RHO = PROPT Y 11,1,1) ‘ * 1146 

E=PROPTY (1,1,4) 1147 

RHOU=RHO*VMAG 1148 

DO 20 J= 1 » JMAX 1149 

DO 15 1=1,3 1150 

DO 10 K=1 »4 1151 

10 OVRPRMI K » J, 1+3 ) =pR0PTY I I * J.,|C) 1152 

15 CONTINUE 1153 

TH=VDIR— THTA ( J } 1154 

PROPTY ( 1 , J » 1 ) =RHQ 1155 

PROPTY! 1 *J*2)=RHnU*COS(TH) 1156 

PROPTY ( 1 ♦ J*3 ) =RHrvU#S I N I TH ) 1157 

PROPTY! l.J,4)=E 1158 

DO 20 K=1 ,4 1159 

PROPTY ( 1 » J»K )=0. s 4 (PROPTY ( 1 * J, K )+PROPTY ( 2*J»K) ). 1160 

20 PROPTY{3,J*K)=0,=*(DROPTY(2,J»K)+PROPTY(3»J*K)) 1161 

DR=DELR 1162 

DTR=DTDR 1163 

DELR=0.5*DELR 1164 

DTDR=2.0*DTDR 1165 

RADII )=DELR 1166" 

RAD I 2 )=DR 1167 • 

RAD I 3 ) =DELR+DR 1168 

DO 500 1=1,3 1169 
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DO 500 J=1 » JMAX 1170 

CALL VECTFR(I»J»oVPLAY(1*J»I) ) 1171 

CALL VECTRG’U »J»oVRLAYC5»J» I )> H72 

CALL VECTRSt I . J*oVRLAY(9*J* I) ) 1173 

50C CONTINUE H74 

DO 501 1=1,2 H75 

RD=RAD( I )+0.5*DElR ' ii76 

11=1+1 1177 

DO 501 J = 1 , JMAX H78 

CALL ’QUADK l»J*OvRPRM(l*J»Il) »I) 1179 

CALL TFMPFW{0VRPpM(1*J,I1}»0VRPRM(5»J*I1)»I1»J»1) 1180 

CALL TEMPGW(OVRPrM(1 *J»I1 } »OVRPRM'(9» J* ri) V < - 1181 

CALL TEMPSW<0VRPpM{1'»U»I1)»0VRPRM.<13*cJ»I1) ) 1182 

OVRPRMt 13 » J, 1 1 ) =rD*OVPPRM ( 13 ♦ J» 1 1 ) li83 

OVRPRM(16*J*Il)=pO*OVRPRM(16>J*Il) 1184 

501 CONTINUE - 1185 

CALL GENPT ('2*2) H86 

DELR=DR 1187 

DTDR = DTR H88 

RAD ( 1 ) =0 #0 1189 

RAD ( 2 ) =DELR 1190 

RAD(3)=DELR+DELR 1191 

DO 40 J=1 , JMAX 1192 

DO 40 K=1 ,4 ll 93 

OVRPRM ( K » J » 1 ) =PRoPTY I 2 * J *K ) 1194 

DO 40 1=1,3 1195 

PROPTY ( I » J *K. 5 =OVDDpf 4 ( K , J, 1+3 ) 1196 

40 CONTINUE 1197 

RETURN 1198 

END H99 

SUBROUTINE VECTFo ( 1 1 > JJ »R ) COMB0395 1200 

C********* COMPUTES ThE VALUE OF THE VECTOR FUNCTUON F(W) WHERE -W C0MB0396 1201 

C********* IS THE VECTOR OF CONSERVATION VARIABLES' ****** ******* ****** COM BO 39 1202 

COMMON PR0 PTY»GA m MA3>GAMMAi , GAMMA, DELR »DELO,PO, PMAX » PR, ER ,TAU » IMAXCOMB0398 1203 
l,JMAX,T,DTDR,DTDn,DT ,P,A0,R00,NCYCMX,RR 120 a 

DIMENSION PROPTY{ 12*36*4) - ' • 1205 

COMMON/LE/ FJMAX,IMAXM1»RAD( 12) *OVRLAY ( 12 *36 » 12 ) >OVRPRM< 16*36*12) 1206 

DIMENSION R ( 4 ) - • COMB0A0A 1207 

I=II COMB0405 1208 

j=jj CCMB0406 1209 

T F < J.LE.JMAX) GO TO 7 COMB040 1210 

j=l COMB0408 1211 

7 IFIJ.EQ.O) J=JMAX C0MB0409 1212 

X=PROPTY( I >J*2) /dROPTYI I *J»1 ) COMB0411 1213 

Y=PROPTY ( I * J *3 ) /pROPTY ( I » J ♦ 1 ) COMB0412 1214 

C Z IS DISTANCE FROM ORIGIN COMB0413 1215 
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Z=RAD ( I ) 

R(1)=-PR0PTY< I,J.2)*Z ' . 

R ( 2 ) =PROPTY { I * J* ? )*GAMMA3*«5*X-G/\MMA1* (PROPIY ( I » J*4 ) - ,5*Y*PROPTY 
1 ( I * J • 3 ) ) 

R ( 2 ) =R ( 2 ) *Z 


COMB0416 

COMBOA1 

COMB0418 

C0MB0419 


r( 3)=-X*PROPTY( I, J,3)*Z C0MB0420 

R ( 4 ) =- ( X*PRCPTY ( i ♦J»4)*GAMMA-GAMMA1*0.5*PR0PTY< I , J,2)*(X**2+Y**2) )COMB0421 
1*Z COMB0422 

RETURN ' C0MB042 3 

END COMB0424 

SUBROUTINE VECTRrCII »JJ»R) . C0MB0426 

C********* COMPUTES ThE VALUE OF THE VECTOR- FUNCTUON G(W) WHERE W C0MB042 


C********* IS THE VECTOR OF CONSERVATION VARIABLES • *****.**************COMb0428 
COMMON PROPTY»GAmMA 3*GAMMA1 * GAMMA *OELR *DEL0*RP»PMAX*PR»ER*TAU» IMAXCOMB0429 
l*JMAX,T,DTDR.DTDo»DT»P»AO»ROO*NCYCMX*RR 
DIMENSION PROPTY ( 12*36*4) 

COMMON/ LE/ FJMAX, IMAXM1 *RAD( 12 J »OVRLAY (12*36*12) *OVRPRM( 16*36*12) 


DIMENSION R { 4 ) ' C0MB0435 

I = H COMB0436 

J=JJ COMB043 

IFC J.LE. JMAX) GO TO 19 COMB0438 

J=1 C0M80439 

19 IF(J.EQ.O) J=JMAx COMB0440 


9 X=PROPTY ( I » J » 3 ) /pROPTY ( I » J * 1 j COMB0443 

2 Y=PROPTY( I »J*2) /pROPTY ( I ♦ J* 1 ) C0MB0446 

5 R( 1 )=- PROPTY ( I » J, 3 ) C0MB0458 

R(2)=R(1)*Y COMB0459 

R ( 3 ) =— 0 . 5*GAMMA3*R ( 1 ) *X-GAMM41* ( PROPTY ( I » J * 4 ) -0. 5*Y*PROPTY t I . J *2 ) ) C0MB0460 
R{ 4 )=-(GAMMA*X*PrOPTYU , J,4)-GAMMA1*0.5*PROPTY( I * J»3 )*(X**2+Y**2) )COMB0461 
RETURN C0MB0462 

END C0MB0&63 

SUBROUTINE VECTRSf M *JJ*S) '* . C0MB0583 

C ********* COMPUTES ThE VALUE OF THE VECTOR FUNCTUON S(W) WHERE W COMB0584 


C********* IS THE VECTOR OF CONSERVATION VARIABLES *******************COMB058 5 
COMMON PROPTY»GAmMA 3»GAMMA1 .GAMMA.DELR *DELO *PO* PMAX . PR, ER » TAU ♦ IMAXCOMB0586 
l,JMAX»T,bTDR*DTDo*DT,P»AO*RO0*NCYCMX*R 
DIMENSION PROPTY( 12*36*4) 

COMMON/LE/ FJMAX.IMAXM1.RADI 12) »OVRLAY { 12 > 36 ♦ 12 J *OVRPRM ( 16 » 36 * 12 ) 

COMMON/EDOT/EKF 

COMMON/NCPLOT/NTrYCL * ISTART 

DIMENSION S (4) »W{4) 


I = I I COMB0593 

J=JJ COMB0594 

IFC J.LE. JMAX) GO TO 7 COMB0595 

J=1 C0MB0596 

7 IF(J.EO.O) J= JMAX COMB059 


1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
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DO 10 K=l»4 ; 
w(k)=proptyc r»j.. r) 


10 continue , - 

X=PROPTY ( I »J»3) /pROPTYt I »J» 1) COMB0598 

Y = PROPTY { I ♦ J »2 ) /pROPTY i I » J > 1 ) COMBG599 

PR5=GAMMA1* ( PROPjY ( I » J ♦ 4 ) -0 ,5*PR0PTY 1 1 » J> 1 ) * ( Y**2+X**2 ) ) 

IF( PRS.LT. 0.0) Gp TO 50 
CALL PH I DOTV ( W »S ) 

S(l)=RAD(n*S(l)*EKF 


S(2)=PR0PTY« IiJ»i )*X**2+PRS 

S ( 3 ) =— PROPTY ( I ,J»1)*X*Y COMB0603 

S(4)=RAD( I )*S(4l*EKF 

RETURN COMB060 5 

50 CONTINUE 


WR I TE t A » 707 ) Um>l* < PROPTY ( L»M»K) *K=1 »4, ).»M=1 ♦ JMAX) .L = l • I MAX ) 

2»J» I * (PROPTYU ,J,K) *K = 1»4) »NTCYCL ' - 

707 FORMAT ( 1H0//(2I4»4E23»7) ) 

STOP 

ENp COMBO6O6 

SUBROUTINE QUADK-I I»JJ»-TEMPWl*LL-P . , c C0MB0650 

C ********* COMPUTES W..SQUIGGLECT+.DELT) » THE- TEMPORARY' VALUE COMB0651 

£********* of THE CONSERVATION VECTOR #**»***********:****************cOMb0652 
COMMON PROPTY » GAmMA 3 > GAMMA 1 ♦ GAMMA • DE LR.*.DELO . PO ♦ PMAX * PR * E R » T AU » I MAX COMB065 3 


!♦ JMAX»T,DTDR»DTDp»DT *p*ao»roo*ncycmx»r 


DIMENSION PROPTY ( 12*36*4) .. • • • 

COMMON/LE/ FJMAX , I MA.XM1 > RAD 12 ) »OVRLAY 1 12 >36 » 12 ) »OVRPRMf 16»36»12) 

DIMENSION AVEW(4) »TEMPW1(4) *AVES(4) 

l_— I_ j_ COMBO 66C 

1 = 1 j C0MB066 1 

j=jj COMB0662 


I F ( L • EO • I MAX Ml ) 0,0 TO 10 


HDELR=0.5*DELR 

I F C J.LE.JMAX ) GO To -7 COMB0663 

j=l COMBO66 A 

7 IF(J.EQ.O) J=JMAx COMB0665 

jPl=j+l COMBO666 

I F t JP1.LE.JMAX) oO TO 8 COMBO66 

jp 1 = l- , COMBO668 

8 IF< JP1.EQ.0) JPl-jMAX COMB0669 

DO 1 K=l>4 COMB067 0 


AVESC-K) =0.0, ..... - - . 

IF(K.EQ*2«0R • K.Eq. 3 ) ■ AVES ( K ) =0 . 25* (0VRLfY-(K+8 » J »L H-OVRLAY ( K+8 » JP1 ♦ 
1D+0VRLAY ( K+8 ♦ JPl »L+1 ) +OVPLAY ( K+8 »J*L+1 ) ).*DT 
1 AVEW ( K) =0. 25* t PRpPTY { I » J»K ) +PROPTY ( I+l » J,K)+PROPTY ( 1+1* JPl *K)+PROPCOMB0671 
XTY( I ♦ JPl »K) )- . . COMB0672 

DO 2 K= 1 >4 COMB0673 


1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 
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2 TEMpWltK >=AVEW(Kl + ( ( DTDR* < OVRLAY ( (C » J »L+1 ) -OVRLAY ( K » J »L ) +QVRLAY ( K . COMB0674 
1 JP 1 . L+l > -OVRLAY ( < * JP 1 »L }) +DTDO* I OVRLAY ( K+4 ♦ JP1 * L ) -OVRLAY ( K+4 ♦ JC0MB067 5 

2 »L)+OVRLAY( K+4. JpI.L+ 1 ) -OVRLAY UC+4»j»L+l) )*)*.• 5+AVES ( K ) ) / I RADt J ) + 


3HDELR ) 

GO TO 13 

10 RADE=RAD( I )+DELR/2. 

RADI =RADE-DELR 

TEHPWK 1 )=OVRPRM( 1*J» I >*RADI/RADE 

TEMPW1(2)=-TEMPWt ( 1)* (OVRPRM! 2»J* I ) /OVRPRM I 1*J*I >) 

T EMPW1 ( 3 ) =OVRPRM{ 3 » J * I ) 

EMSQ=OVRPRM ( 2 » J ♦ I > **2 
ENSQ=OVRPRM ( 3 ♦ J > I ) **2 
EMNR = ( EMSQ+ENSO ) /OVRPRM ( 1 ♦ J » I ) 

PINTS=GAMMA1*(0VpPPMU»J»I)-.5*EMNR) 

PEXTS=PINTS+DELR/RADI*ENSO/OVRPRMt 1 * J* I J 

TEMPWl { A ) =PEXTS/r,AMMAl + . 5* t TEMpWl { 2 ) **2+TEMPWl ( 3 ) **2 ) /TEMpWl I l ) 

13 RETURN 

END . . COMB0680 

subroutine tempfw(wtemp.fofw.ii.jj.iindex') 

C********* COMPUTES F( W*.SqUIGGLE) WHERE W.*SqU|GGLE IS THE TEMPORARY COMB0609 
C********* VALUE OF ThE CONSERVATION VECTOR ***********************cOMb061 0 

COMMON PROPTY»GAmMA 3»GAMMA1 » GAMMA »DELR » DELO ♦ PO» PMAX » PR ♦ ER » TAU » IMAXC0MB0611 
l.JMAX.T.DTDR.DTDo.DT.P.AOVROO.NCYCMX.R 
DIMENSION PROPTY ( 12.36.4) 

COMMON/LE/ FJMAX, IMAXM1 .RAD ( 12) .OVRLAY ( 12.36 * 12 > .OVRPRM ( 16 . 36 » X2 } 

DIMENSION WTEMPC 4 ) .FOFWU) COM6061 

JJJ=I 1-1 

Z=FLOAT( JJJ)+FL0aT( IINDEX)/2. 


Z=Z*DELR 

X=WTEMP I 2 ) /WTEMP ( 1 ) C0MB0621 

Y=WTEMP I 3 ) /WTEMP ( 1 ) • COMB0622 

FOFW(l)=-WTEMPI2)*Z COMB0623 

FOFW{2)=WTEMPC2)*GAMMA3*0.5*Xt-GAMMAl*( WTEMPU)-0,5*Y*WTEMP<3) ) C0MB0624 

FOFWI 2) =FOFW(2)*Z COMB0625 

FOFW I 3 ) =~X*WTEMP ( 3 ) *Z C0MB0626 

F 0 FW( 4 ) =- ( X*WTEMp ( 4 ) *GAMM A -GAMMA1*0 . 5*WTEMP ( 2 ) * (X**2+Y**2 ) ) *Z C0MB062 

RETURN C0MB062 8 

END COMB0629 

SUBROUTINE T EMPGW I WTEMP . GOFW ) C0MB0631 

C********* COMPUTES G(W..SGUIGGlE) WHERE W. .SqUIGGlE IS THE TEMPORARY COMB0632 

c********* value of t h e conservation vector ***********************combo633 

COMMON PROPTY»GAmMA 3»GAMMA1 .GAMMA.DELR .DELO .Pp. PMAX » PR , ER » TAU » IMAXCOMB0634 
i.jmax.t . dtdr *X>TDo »DT .p.AO.ROC.NCYCMX *r 
DIMENSION PROPTY (12*36.4) 


COMMON/LE/ FJMAX, IMAXM1 .RADI 12) .OVRLAY ( 12 .36 * 12 ) .OVRPRM ( 16*36.12) 

DIMENSION WTFMPI4) .GOFWU ) COME0640 
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1342 

1343 

1344 
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1346 

1347 

1348 

1349 

1350 

1351 

1352 
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X=WT EMP ( 3 ) /WTEMP ( 1 1 C0MB0641 

Y=WTEMP.(2)/WTEMP(1) COMB0642 

GOFW ( 1 ) =-WTEMP ( 3 ) C0MB0643 

60FW(2)=G0FW( 1)*Y COMB0644 

GOFW ( 3 ) =-0.5*GAMmA3*G0FW ( 1 ) *X-GAMMA1*< WTEMP ( 4 }-0* ?*Y*WTEMP ( 2 ) ) C0MB0645 

GOFW ( 4) =- (GAMMA*X*WTEMP ( 4 ) -GAMMA1*0. 5*WTEMP ( 3 )* (X**2+Y**2 ) ) COMB0646 

RETURN C0MB064 

END COMB0648 

SUBROUTINE TEMPSw(WTEMP.SOFW) COMB0566 

C********* COMPUTES S(W..SQUIGGLE) WHERE W..SqUIGGlE IS THE TEMPORARY COMB0564 

G********* VALUE OF ThE ‘ CONSERVATION ’VECTOR ‘ *************-***-#-******gOMb056 5 

COMMON PROPTY»GA,<MA3*GAMMAl * GAMMA »DELR * DELO * PO » PMAX * PR* ER * TAU » I MAX COMBO 56 
1* JMAX,T,DTDR*DTDn*DT »P*AO*ROO*NCYCMX »R 
DIMENSION PROPTY { 12 *'36 *4 ) 

COMMON/LE/ FJMAX, IMAXM1 »RAD( 12 ) »GVR1_AY ( 12 *36 » 12 ) *OVRPRM< 16*36*12) 


COMMON/EDOT/EKF 
COMMON/NCPLOT/NTcYcL » ISTART 
D I MENS ION WTEMP ( 4 ) ♦S‘OFW ( 4 } * 

X=WTEMPC3)/WTEMP{1) 

Y=WTEMP ( 2 ) /WTEMP { 1 ) 

PRS=GAMMA1*< WTEMd{ 4)-0.5*WTEMP ( 1 )*<Y**2+X**2 ) ) 
IF(PRS.LT.O.O) Go TO 50 
CALL PHIDOTV(WTEmP.SOFW) 

S0FW(1)=S0FW(1)*EKF 
SOFW( 2 J=WTEMP( 1 )*X**2+PRS 
SOFW ( 3 ) =-WTEMP 1 1 ) *X*Y 


COMB0573 

COMB0574 

COMB0575 


COMB0578 


SOFW ( 4 ) =SOFW ( 4 ) *pKF 

RETURN COMB058O 

50 CONTINUE ‘ ' . - '• 

WRITE < 6 »707 ) { < J*r » (OVRPRM ( K * J* I ) »K=1 *4 ) » J=1 » JMAX )’« I =1 ♦ I MAX ) 

2*1*1 *WTEMP*nTCYCl 

707 FORMATC1HO//{2I4,4E23.7) J 
STOP 

END COMB058 1 

SUBROUTINE GENPT ( I F » IL ) 

C********* COMPUTES ThE VALUE OF W(T+DElT) AT REGULAR MESH POINTS COMB0724 

G********* ^Nd AT BOUNDARY POINTS > *** , ***’********#******-*********-***gOMb072 5 

COMMON PROPTY, GAmMA3*GAMMA1 »GAMMA *DELR ♦ DELO * PO* PMAX *PR, ER* TAU » IMAXCOMB0726 
1* JMAX»T*DTDR*DTDo»DT»P*AO*ROO»NCYCMX»R 


DIMENSION PROPTY ( 12*36*4) 

COMMON/LE/ FJMAX, IMAXM1»RAD( 12) *OVRLAY ( 12 * 36 * 12 ) *OVRPRM< 16*36*12) 

DIMENSION FDRV6R ( 4 ) *GDRVBR(4> *SAVEBR(4) 

DO 5 I - 1 F » IL 
DO 10 J=1 * JMAX 

50 JP1=J+1 C0MB0761 

JM1=J-1 COMB0762 
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I F t JP1.LE.JMAX> GO TO 7 

COMB0763 

1400 

JP1 = 1 

COMB0764 

1401 

7 IF C JM1.EQ.0) JM1 = jMAX 

COMB0765 

1402 

IM= I -1 


1403 

IP=I+1 


1404 

DO 4 K=l,4 

COMB0766 

1405 

K4=K+4 


1406 

1 FDRVBR < K ) = ( OVRPRm f K4 * J » ! P ) -QVRPRM (^4»J*I ) +.OVRPRM (K4»JMl,IP)- 


1407 

10VRPRM(K4,JM1»I ) ] . 


1408 

K 8 =K +8 


1409 

? GDRVBR ( K ) = ( OVRPRm ( K 8 * J * IP ),— OVRPRM ( K 8 * JM1 » IP ) +OVRPRM( K 8 »J*I)~ 


1410 

10VRPRM( K 8 » JM1 * I ) ) 


1411 

K 12 =K.+ 12 


1412 

3 SAVEBR(K)=.25*(0VRPRM(K12»J»IP)+0VRPRM(K12» I )+OVRPRM(K12?JMI»IP) 


1413 

l+OVRPRM ( K12 » JM1 ♦ I) ) 


1414 

OVRKJI=~OVRLAY (Kft »J* I ) 


1415 

IF(K.EQ.2.0R.K,*Eo.3) OVRKJ 1=0.5* (OVRLAY( K 8 » J * IP I+OVRLAY ( «8 , J» IM) ) 


1416 

4 PROPTY( I »J*K) = PRcPTY( I»J»K)+{ {DTDR^( (OVRLAY((C»J*lP)-OVRLAY(IC,J.IM) 


1417 

1 J+FDRVBR ( K ) ) *• 25+DTDO* ( ( OVRLAY < K4 , JP1 • I ) -OVRLAY ( K 4 » JM 1 , 1 ) ) +GDRVBR 


1418 

2 ( K ) ) *«2 5+DT * ( OVRtr JI+SAVEBR ( K ) )*. 5 )/RAD( I ) ) 


1419 

10 CONTINUE 


1420 

5 CONTINUE 


1421 

RETURN 

COMB077 

1422 

END 

C0MB0778 

1423 

SUBROUTINE PHI DOjV ( PHI IN *'PH IOUT ) 


1424 

COMMON PROPT Y * GAmMA3 » GAMMA 1 * GAMMA , DE LR ♦ DELO , PO , PMAX » PR * E R * TAU » I M AX 


1425 

1* JMAX*T,DTDR»DTDn*DT.p»AO»ROO»NCYCMX»R 


1426 

DIMENSION PROPTY (12»36»4) 


1427 

COMMON/LE/ FJMAX,IMAXM1 »RAD(12) »OVRLAY t 12 * 36 » 12 ) »OVRPRM ( 16 ,36 »12 ) 


1428 

COMMON/PHIP/DLN*EN,V*EKFCT»DMF f DMFT»ELFZ»CPR3»FPHIFStDMPlNF»DMRlNF 


1429 

1,CRE*CAP 


1430 

COMMON/QQXM/XM ,T 0 »QKR 


1431 

DIMENSION PHI IN ( 4 ) » PH I OUT ( 4 ) »TT ( 12 ) »DHRT(J2) 


1432 

DATA TWOPI *P I *RZ/6.283 18531,3. 141 59265 .1544,/ 


1433 

DATA G,CPSINF/32.17». 3539658/ 


1434 

DATA TT»DHRT/108n0. 0,9900. 0,9000, 0,8100 .0,7200, 0,6300. 0,5400,0, 


1435 

X4500. 0,3600. 0,2700.0,1800.0,536.4,225. 0,1010.0,1860.0,2580.0, 


1436 

X3380, 0,4160. 0,4900.0,5620.0,6300. 0,6970. Q,7540. 0,815 0,0/ 


• 1437 

PHIOUT ( 2 ) =0.0 


1438 

PHIOUT ( 3 ) =0 . 0 


1439 

IF(EKFCT)300»10»?00 


1440 

10 CONTINUE 


1441 

USQ=PHI I N ( 2 )*PHI tN(2 J+PHIIN (3)*PHI IN (3 ) 


1442 

PINF=DMPINF*(PHlTN(4)-0.5»USQ/PHI IN ( 11 ) 


1443 

RHOINF=PHIIN(1)*POO 


1444 

TINF=DMRINF*PINF/RH0INF 


1445 
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A300=3*73E-5*TINf+1.855 1446 

ALP=ALOG (PINE) 1447 

AP=CAP*A300*EXP( ,0l08*ALP) 1448 

TL-8700, /( 15 *062? 979- ALP) 1449 

IFfPINF.GT.2131. ) TL=1176. 1450 

SK=,691716667E-4-2.31388889E-8*TL 1451 

CP=.137857+TL*f .52715E-3-TL*. 119907E-6 ) 1452 

EMFZ=TWOPI*DLN*5k/CP*AP 1453 

RE=CRE*S0RT (USQ/TINF) 1454 

EMFD=£MFZ*(1.0+CpR3*SQRT(RE) ) 1455 

PSI=EMFD*FPHIFS 1456 

CALL SEEK(TINF».TT»11»IJ) 1457 

60 FORMAT ( 11H SEEK fRROR *2E20.13 ) 1458 

I F f IJ) 80 *70 * 80 1459 

70 PRINT 60»TINF»TT{1) 1460 

STOP 1461 

80 CONTINUE 1462 

DHR=DHRT ( I J ) + ( DHrT { I J+ l )-DHRT ( IJ) )*(TINF-TT( I J) )/(TT( IJ+1 ) — TT < IJ) ) 1463 

XIS=EMFD*{DHR-ELfZ) 1464 

PH I OUT ( 1 ) =PS I*DMfT 1465 

PHI0UT(4)=XIS*DM<t 1466 

100 CONTINUE 1467 

RETURN. 1468 

200 CONTINUE 1469_ 

X=PHI IN(3 )/PHIINf 1) 1470 

Y=PHIIN(2)/PHIIN(1) . 1471 

PRS=GAMMA1*( PHI In ( 4 >-0 . 5*PHI IN ( 1 ) *( Y**2+X**2 > ) 1472 

PH I OUT f 1 ) =0 . 0 1473 

PPRM=PRS-1.0 1474 

IF(PPRM.LT.O.O) pRRM=SQRT (-PPRM) 1475 

PH I OUT ( 4 ) =PPRM 1476 

RETURN 1477_ 

300 CONTINUE 1478 

PHI OUT ( 1 ) =0. 0 1479_ 

PH I OUT ( 4 ) =0.0 1480 

RETURN 1481 

END • * . IW 

ASCENTF SUBROUTINE SEEK ( E ♦ EOUT .NOUT » I ) ■ • 1483 

BSS 6 1484 

ENTRY BSS 1 1485 

SA1 B1 i4”5T 

SA2 B2 1487 

sb 7 i nw 

FX3 X2—X1 1489 

NZ X3 SKI 1490 

SX6 B7 1491 
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SA6 B4 1492 

ZR BO ENTRY 1493 

SKI PL X3 SK2 1494 

SX6 BO 1495 

SA6 B4 1496 

ZR BO ENTRY 1497 

SK2 SA4 B3 '1498 

SB2 B2-B7 1499 

SB5 B7 1500 

SB6 X4+B7 1501 

SK3 SB1 B5+B7 1502 

NE B1 B6 SK4 1503 

SX6 B5 1504 

SA6 B4 1505 

ZR BO ENTRY 1506 

SK4 SX5 B5+B6 1507 

AX7 B7 X5 1508 

SA2 X7+B2 1509 

1X3 X2-X1 1510 

ZR X3 SK6 1511 

PL X3 SK5 1512 

SB6 X7 1513 

ZR BO SK3 1514 

SK5 SB5 X7 1515 

ZR BO SK3 1516 

SK6 SAO X7 1517 

SX6 A0-B7 1518 

SA6 B4 1519 

ZR BO ENTRY 1520 

END 1521 

SUBROUTINE CENTEp 1522 

C********* COMPUTES ThE VALUE OF W(T+DELT) AT THE CENTER OF THE COMB0683 1523 

C********* CYLINDER By SCALER AND VECTOR AVERAGING *************»****C 0 MB 0684 1524 

COMMON PR0PTY»GAmMA3»GAMMA1 » GAMMA »DELR jDELO » PO»PMAX *PR»ER »TAU • IMAXCOMB068 5 1525 

1 »JMAX»T»DTDR»DTDo*DT»P»AO»ROO*NCYCMX»R 1526 

DIMENSION PROPTY ( 12 *36 »4 ) 1527 

COMMON/LE/ FJMAX,IMAXM1>RAD(12I »OVRLAY ( 12 * 36 * 12 ) »OVRPRM ( 16 » 36 » 1 2 ) 1528 

COMMON/ CNlRE/ COS TH{ 36 ) *SINTH( 36 ) »THTA( 36 ) 1529 

COMMON/MIDDLE/VMaG »VD IR 1530 

COMMON/TLDR/TTLDR 1531 

COMMON/EDOT/EKF 1532 

DIMENSION FnUmU) »GNUmU) »WXY ( 4 * 36 *2 > » FXY( 4 * 36 *2 ) *GXy ( 4 , 36 * 2 ) 1533 

1 »X ( 36 ) » Y l 36 ) 1534 

EQUIVALENCE ( WXY*OVRLAY ) * < FXY tOVRLAY ( 289 J ) » ( GXY .OVRLAYt 577 ) ) 1535 

1* (X»OVRLAY( 865 ) ) , ( Y*OVRLAY ( 901 ) ) 1536 

DATA PI »TV/0PI/3.1415926»6. 2831852/ 1537 
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1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 


GXY(K*J*l)=0.5*(c-XY(K»J»l)+GXY<K, j»2> ). 1562 

30 CONTINUE 1563 

FNUM ( K ) =0 . 1564 

GNUM(K)=0. 1565 

35 CONTINUE 1566 _ 

DENOM=0 . 1567 

DO 40 J=1 » JMAX 1568 

JP1=J+1 1569 

IF( J.EO.JMAX) JP1-1 1570" 

YDIF=Y( JP1 J-YC J) 1571 

DENOM= ( X ( JP1 ) +X ( J ) 5*YDIF+DEN0M 1572 

XDI F=X ( JP1 ) -X ( J ) _1573_ 

DO 50 K=1 *4 1574 

FNUM ( K ) =FNUM ( K ) + ( FXY ( K * J » 1 ) +FX Y (K*JP1>1))*YDIF 1575^ 

50 GNUM(n=GNUM(K) + (GXY(K»J»n+GXY(K«JPl»l) )*XDIF 1576 

40 CONTINUE 1577 

DO 55 K=l,4 1578 

FNUM(K)=FNUM(K)/dENOM 1579 

GNUM ( K ) =GNUM ( K. } /rjENOM "1580 

PROPTYt 1»1 »K)=PRoPTY( 1 ♦1»K)+DT#(FNUM(K)-GNUM(KI ) 1581 

55 CONTINUE 1582 

QA=VDIR 1583 


DR2=.5*DELR 
DO 10 J=1*JMAX 
X( J)=DELR*COSTH< J) 

Yt J)=DELR*STNTH( J) 

WXYC1*J*1 )=PROPTy<2*J»1) 

WXY ( 4» J ♦ 1 ) =PROPTy ( 2 * J * 4 ) 

WXY(2»J»1)=PROPTy{2»J*2)*COSTH( J)-PR0PTY(2»J*3)*SINTH(J) 
WXY(3»J»1 )=PROPTy( 2»J»2 )*SINTH( J)+PR0PTYf 2»J»3)*C0STH( J) 
WXY ( 1 » J »2 ) =0 VRPRm ( 1 » J > 1 ) - 

WXY ( 4* J » 2 ) =0VRPRm I 4 » J »'1‘ ) 

WXY(2»J»2)=OVRPRm(2»J*1 )*C0STH{ JT-0VRPRM( 3» J»1 )*SINTH(J) 
WXY ( 3 * J * 2 ) =0VRPRm ( 2 » J * 1 ) I NTH < J ) +0VRPRM (3* J»1 ) *COSTH ( J ) 
DO 20 K=l *4 

PROPTYI 2*J»K)=OVpPrM(K* J»1 ) 

20 CONTINUE 
DO 25 1=1*2 

CALL TEMPEW ( WXY ( } » J » I ) »FXY Il»J»IJ»l»J*l) 

CALL TEMPGW(WXY(i *J,I) »GXY(l,J,n ) 

DO 25 K=1 *4 

25 FXY(K»J»I )=FXY tK»J*I I/DR2 
10 CONTINUE 
DO 35 K=l,4 
DO 30 J=1 * JMAX 

FXY<K»J»1)=0,5*(fXY(K*J»1)+FXY(K.»J» j 2) ) 
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VMAG=SqRT ( PROPTY (1,1. 2 )**2+PROPTY 1 1 ♦ 1 » 3 )**2 ) /PROPTY (1 *1 » 1 } 1584 

VD I R = AT AN2 ( PROPT Y ! 1 » 1 »3 ) * PROPTY ( 1 » 1 » 2 ) ) 1585 

QA=ABS( VDIR-QA) 1586 

IFCQA.GT.PI) OA=TWOPI-QA 15 87 

ttldr=ttldr+qa !588 

RETURN C0MB0720 1589 

END C0MB072 1 1590 

SUBROUTINE CHARGf 1591 

c ********* computes boundary conditions at the periphery 1592 

0 ********* op the cylindrical surface *#********-***#***#**»*********coM80918 1593 

COMMON PROPTY *GAmMA3» GAMMA 1 » GAMMA *DELR *DELO»PO»PMAX *PR»ER»TAU» I MAX 1594 

l»JMAX»T,DTDR»DTDn*DT»P.AO»RO0»NCYCMX.R 1595 

DIMENSION PROPTY ( 12»36»4) 1596 

COMMON/LE/ FJMAX, IMAXM1 »RAD( 12 ) »OVRLAY l 12 »36 » 12 ) *OVRPRM( 16 »36 ♦ 12 } 1597 

I MAXM2= I MAX- 2 1598 

RI NT =RAD ! I MAX-2 I 1599 

REXT=RAD( IMAX) 1600 

RQUOT=RINT/REXT is°i 

DO 10 J=1 , JMAX l 602 

PROPTY! IMAX,J»1)=PR0PTY< IMAXM2»J*1I*RQU0T 1603 

PROPTY t IMAX, J»2)=~PR0PTY( IMAX »J » 1 )*< PROPTY ( IMAXM2 ♦ J* 2 ) /PROPTY < IMAX 1604 

X M2 , J » 1 ) ) l 605 

PROPTY! IMAX » J » 3 )■= PROPTY ( IMAXM2»J,3) 1606 

RUSQ= ! PROPTY ! I MAXM2 » J *2 ) **Z ) /PROPTY ( IMAXM2»J»1) 1607 

RVSQ=(PROPTY ( IMAXM2 » J * 3 ) **2 ) /PROPTY ! IMAXM2»J»1) 1608 

PINT =GAMMA1* ( PROdTY ( I MAXM2 »J»4)— »5*( RUSQ+RVSQ ) ) 1609 

PEXT=PINT+2.*DELR/RINT*RVSQ 1610 

PROPTY! IMAX,J,4}=PEXT/GAMMA1+.5*(PRQPTY(IMAX»J,2)**2+PR0PTY! IMAX, 1611 

*J , 3 } **2 ) /PROPTY ! iMaX»J,1) 1612 

10 CONTINUE 1613 

RETURN 1614 

END 1615 

SUBROUTINE PRTOUT(RTM) 1616 

C********* PRINTS A Terse VIEW OF THE FLOW FIELD ALQNG THE CoMB1421 1617 

C ***Q***** Rays 0,Pi/ 7 ,Pi ,9*Pl/2 *********************************c0M21422 1618 

COMMON PROPTY »GAmMA 3 *GAMMA 1 , GAMMA, DELR,DELO,PO,PMAX, PR, ER, TAu, IMAXC0MB1423 1619 
l»JMAX,T,DTDR*DTDn»DELT,P,AO»ROO»NCYCMX ,R 1620 

DIMENSION PROPTY ( 12 »36 »4 ) 1621. 

COMMON/ NCPLOT/NTcYCL » 1ST ART ,RC,OC 1622 

COMMON/MIDDLE/VMaG,VDIR 1623 

COMMON/PRTOPT/INTPNT 1624 

COMMON/ TLDR/TTLDR 1625. 

EQUIVALENCE!THTBAR»VDIR> 1626 

75 LF=0 1627 

L=1 C0MB1429 1628 

ENREV=TTLDR/6. 2891852 1629 
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707 

1818 

. 606 


WRITE (6. 606) T *NTCYCL tENREV »DELT *RTM 
IF t INTPNT • EQ.O ) rO TO 1818 
J=1 ~ . 

1 = 1 

WRlTE<6-»707) J»I ,VmAG»VDIR 

WRITE t 6 *707) ( ( J » T » t PROPTY ( I * J »K) *K=1 *4 ) »J=1»JMAX) »I«1*IMAX) 

FORMAT! IX* 2 I4*4E?3.7) 

CONT I'NUE 
WR I TE ! 6 » 6062 ) 

FORMAT! 12H-1 TOTAL TIME=E12 .5 »3X * 17HNUMBER OF CYCLES=I4*3X»15HNUMBER 
L OF REVS=F5«2.3X,10HTIME STEP=E12 . 5 ♦ 3X » 10HREAL TIME=F9.3/// > 

» 14X* 3H V *19X»10HInT ENERGY * 8 X » 10H PRE 


6165 FORMAT ( 8X » 5H RHO »14X*3H U 
1SSURE * 1 OX ♦ 9H MACH NO.///) 

6061 FORMA-T ( IX »6E19 • 5 ) 

6062 FORMAT! 1H0.20X.3?HSOLUTION ALONG THE RAY THETA = 0///) 

6063 FORMAT! 1H0,20X»3^HS0LUTI0N ALONG THE RAY THETA = pi///) 

6064 FORMAT! 1H0 »20X *3<iHS0LUT ION ALONG THE RAY THETA = PI/2///J 

6065 FORMAT! 1H0,20X,3?HS0LUTI0N ALONG THE RAY THETA = 3*PI/2///) 

402 CONTINUE 

WR I T£ ( 6 » 6165 ) 

DO 1012 1=1* IMAX 
IF(L.NE.1.AND.I.EQ.1> go TO 1013 
RHOX = PROPTY ( I »L * 1 ) 

UX= PROPTY ( I *L *2 ) /RH0X 
VX=PROPTY ( I , L * 3 ) /RHOX 

EX= ( PROPTY < I » L » 4 ) /RHOX ) -0 . 5*( UX**2+VX**2 ) 

PX=GAMMA1*RH0X*EX 

XMX=SqrT ( ( UX**2+VX**2 ) / ( GAMMA*PX/RHOX ) ) 
IF(L,EQ*1.AND.I.FQ.1> GO TO 1014 
GO TO 1011 
1014 TMPRO=RHOX 
TMPEX=EX 
TMPPX=PX 
TMPXMX=XMX 
1013 CONTINUE 
XT=L-1 

thetsr=xt*delo 

DIFFT=THTBAR-THETSR 
TMPUX=VMAG*COS t DT FFT ) 

TMPVX=VMAG*SIN ( Dl FFT ) 

WRITE (6 *6061 ) TMPpO »TMPUX» TMPVX » TMPEX »TMPPX . TMPXMX 
GO TO. 1012 

1011 WRITE<6»6061) RHOX,UX*VX,EX*PX.XMX 

1012 CONTINUE 
LF=LF+1 

GO To! 404*504»40^*l00l ) *LF 


COMB1431 

1630 

1631 

1632 

1633 

1634 
163.5.. 

1636 

1637 

1638 

C0MB1434 

1639 

1640 

1641 

comb 143 5 

1642 

COMB 147 9 

1643 

COMB1436 

1644 

C0MB143 

1645 

COMB1438 

1646 

COMB1439 

1647 

COMB1432 

1648 

1649 

C0MB1441 

1650 

1651 

COMB1442 

1652 

COMB1443 

1653 

COMB 1444 

1654 

COMB1445 

1655 

C0MB1446 

1656 

C0MB144 

1657 

C0MB1448 

1658 

COMB 1449 

1659 

C0MB1450 

1660 

COMB1458 

1661 

COMB1459 

1662 

C0MB1460 

1663 

COMB 145 5 

1664 

1665 

1666 
1667 


1668 

COMB 1464 

1669 

1670 

1671 

COMB 146 5 

1672 

C0MB1466 

1673 


1674 

1675 
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404 

CONTINUE 


1676 


L=JMAX/2+l 

COMB 1469 

1677 


WRITE(6»6063 ) 

C0MB1470 

1678 


GO TO 402 

COMB1472 

1679 

504 

CONTINUE 


1680 


L= JMAX/4+1 

COMB1475 

1681 


WR I TE ( 6 » 6064 ) 

COMB 1476 

1682 


GO TO 402 

COMB1478 

1683 

403 

CONTINUE 


1684 


L=3*( JMAX/4)+l 

C0MB1482 

1685 


WR I TE ( 6*6065 ) 


1686 


GO TO 402 


1687 

H-* 

O 

o 

H J 

continue 

C0MB1499 

1688 


RETURN 

COMB1500 

1689 


END 

C0MB1501 

1690 



Appendi x C 

PROGRAM COMBMl IN dUT»OUTPUT »TAPE1 * TAPE3 *TAPE5« INPUT »TAPE6«0UTPUT » 999999 

1TAPE2 ) . 

COMMON PROP T Y * GAmM A3 » GAMMAl » GAMMA » DE LR * DELO ♦ PO » PMAX * PR.» E R t T Au » I MAX 1 

1» JMAX*T # OTDR-«DTDo»DELT»PtAO*-ROO»NCYCMX »R. 2 

DIMENSION PROPTYf 32»108.»4), . 3 

CALL COMB 4 

STOP '5 

END 6 
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SUBROUTINE COMB COMBOOOI 

c **********«hhhh»********«4HHH»*********«HHMM»******#***W#*#*#******cOMb0002 

C TIME DEPENDENT EQUATIONS OF HYDRODYNAMICS „ COM+0003 

********************************************************************* **cOM 2 0004 
r ******************************************'* ****************************c < -MbOOQ 5 
C SOLUTION RESTRICTED TO THE TRANSVERSE PLANE IN CYLINDRICAL COMB0006 

C COORDINATES COMBOOO 

C FINITE DIFFERENCE APPROXIMATION . ** LAX Vf^NDROFF TWO STEP 

C 8URSTEI N VAR I AT TON ••• COnBOUU y 

r **********************#****************’****************' it *****' lf " ,, '*' , *'*****'*'CDMBOOl 0 
r ******************************************-*A***********A*************** 0^^2001 1 
£ #**************************A**-»***** COM0OO12 

C INPUT PARAMETERS IN MAIN ROUTINE COMB0013 

^ COM BOO 14 

C ISTART IF .Eq. 11111 NEW CASE 

C IF .Eo. 00000 CONTINUATION OF PREVIOUS CALCULATION COMB0016 

C IMAX MAX NUMBER OF MESH POINTS ON A RADIUS INCLUDING ONE COMBOOl 

C POInT FOR THE BOUNDARY CONDITION COMB0018 

C UMAX MAX NUMBER OF RAYS r T 

C NCYCMX TOTAL NUMBER OF TIME STEPS FOR THE PRESENT COMB0020 

C INTfGRATION COMB0021 

C NNPCMX NUMBER OF TIME INTEGRATIONS BETWEEN PICTURES COMB0022 

C FUDG SAFETY FACTOR FOR AUGMENTATION OF LINEAR COMB0023 

C STABILITY ANALYSIS COMB0024 

C INPUT PARAMETERS IN OTHER ROUTINES C0MB0025 

c COMB0026 

C GAMMA RATIO OF SPECIFIC HEATS COMB002 

C PO UNPFRTURBED PRESSURE COMB0028 

C PMAX AMPLITUDE OF PRESSURE PERTURBATION COM20029 

C TAU DURATION OF PRESSURE PERTURBATION COM80030 

C RMAX RADIUS OF CYLINDER COMB0031 

C XM MOLECULAR WEIGHT OF GAS C0MB0032 

C TO GAS STAGNATION TEMPERATURE COMBG033 

C***************** ******************* ***■*"*■ ****************-**********-****CD^8DD3 4 

£ _ - - C0MB0035 

C SCALING RULES*. .SEE SUB. INITIL C0MB0036 

c C0MB003 

c ******************************************* **************************** COMBOQ38 

C IN PUT TAPES COMB0039 

c COMB0040 

C BINARY TAPE 1 INPUT TAPE CONTAINING INFORMATION FOR THE CQMB0041 

C CONTINUATION OF THE CALCULATION C0MB0042 

C OUT pUT TAPES C0MB0043 

c C0MB0044 

C BINARY TAPE 3 " OUTPUT TAPE CONTAINS INFORMATION FOR THE COMB004 
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999999 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 
34 

35~ 

36 

37 

38 

39 
40 _ 

41 

42 

43 

44 



o n n n rVn n n 


C CONTINUATION OF COMPUTATION COMB0048 

^***********.* ********************************************************** **COMg0049 
********************************************************************* CO^bOO^O 
***************************************************** COM2 00 5 3 

************************************* . • C0MB0054 

************* C0MB0055 

COMB0056 
COMB005 
C0MB0058 

MAIN _ _ COMB0059 

C********* EXECUTIVE PROGRAM WHICH CONTROLS INPUT tOUTPUT ■ AND COMB0060 

C********* LOGICAL Fl-OW FOR THE COMPUTATION ************************COMB0061 

COMMON PPOPTY »GAmM A3 » GAMMA 1 * GAMMA »OELR »DELO » PO ♦ PMAX * PR* ER * TAU » IMAXCOMB0062 
1. JMAX.T »DTDR »DTDn *0ELT *P » AO »ROO » NCYCMX »R ' 

DIMENSION PROPTY(32»108*4) 

COMMON/LE/FJMAX* lMAXMl»RADl 32) »OVRLAY< 12»3>32) *'OVRPRM ( 16 » 2 » 32 ) 
COMMON/NCPLOT/NT C YCL»ISTART »RC*OC 
COMMON/M IDDLE/VMaG*VDIR 

COMMON/PRTOPT/INTPNT.XTO.DETR (5) *DTR ( 5 J * IDETR ( 5 ) »PDM 

COMMON/TLDR/TTLDp 

COMMON/ EDOT/EKF 

COMMON/PHI P/DLN*EN»V»EKFCT,DMF»DMFT »ELFZ,CPR3 »FPHIFS »DMP INF »DMRI NF 
1 »CRE *CAP 

COMMON/QQXM/XM»To»QKR 
COMMON/ JPPT/JP »PtCRD 
DIMENSION PT CRD t « 5 0 1 •» 2 ) 

- data zero»one/o. 0 * 1 . 0 / 

REWIND 2 
5 CONTINUE 
NCLCM=0 
ntcycl=o 

NCYCLE=0 
NP ICTR=0 
NSAVE=0 

npntc=o 

JP=1 

TTLDR=0.0 
T=0.0 ' 

NPRPLT=1 


DLN=2.0E-4 

PHI =1 .0 

V=120.0 

FS=. 695652174 

READ(5*666)ISTART*ISAVE 

IF C 1START.LT. 0) GO TO 186 

READ ( 5*668 )RAD( 2) »RAD(3) »RAD(4) 


45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
~sr 

82 

83 

84 

85 

86 

87 

88 

89 

90 


177 



668 

F0RMAT(4A10) 



91 


RAD ( 1 ) =10H1 



92 


RAD ( 5 ) =0* 0 



93 


WR I TE ( 6 ♦ 668 } RAD { 1 ) .RADC2) »RAD<-3) ♦ RADI 4) 



94 


RAD ( 1 ) = 1 0H554901 



95 


WRITE! 2) RAD(1)»pAD<2) »RAD<3> *RAD<4) 



96 


READ ( 5 * 666 ) I MAX » jMAX 



97 


FJMAX= JMAX 



98 


I MAXM1= I MAX-1 


C0MB0101 

99 


READ t 5.666 INCYCMx *NNPCMX .KAUKOM. I NTPNT ♦ IBSPLT * IPRPLT * JPR ♦ I PTPLT . 

L 

100 

666 

FORMAT (915) 



101 


WR I TE ( 6 *6066 ) NCY cMX .NNPCMX 


COMB0076 

102 

6066 

FORMAT ( 39H0 ToTA L NUMBER OF CYCLES FOR THIS 

CASf-Ifr.4X,34HNUMBER 

0 

103 

2F CYCLES BETWEEN PICTURES=I4/// > 


COMB0079 

104 


READ! 5.667 )FUDG»D»EKFCT.RC»OC»EN 



105 


PTCRDC1»1)=RC 



106 


PTCRD (1.2) =0C 



107 

667 

FORMAT! 7E10.7 ) 


' 

108 

C 

initialize mesh and find delt for convErg. 

AND STABILITY 

C0MB0083 

109 


CALL INITIL 


COMB0084 

110 


IF( ISTART.NE.O) rALL CHARGE 



111 


CALL CONVRG ( FUDG ) 


C0MB0086 

112 


EKFS=EKFCT*EKF/DFLT 



113 


IF(EKFCT.EQ.O.O) EkFS=1.0 



114 


DMFT=EN*R/(ROO*An) 



115 


DMF=DMFT*778 .0*3? . 17/ ( A0*A0 J 



116 


PHITFS=PHI*FS 



117 


ELFZ=540. 0+178. 2/PHITFS 



118 


CPR3=0. 276*0. 591 



119 


fphifs=i.c+i.o/phitfs 



120 


DMP INF=P0*GAMMA*gAMMA1 



121 


DMRINF=144.0*XM/1 545.0 



122 


CRF=DLN*AO*ROO*23.66432/2.5E-5 



123 


CAP=( 1.0/300.0 >**.0108 



124 


MPNT C^MOD ( NT CYCL , IPTPLT ) 



125 

757 

CONTINUE 



126 

C 

PRINT INITIAL FtELD 


C0MB008 

127 


CALL SECOND (RTM) 



128 


CALL PRTOUT(RTM) 



129 


IMX-12 



130 


JMX=36 



131 


JDF= JMAX/JMX 



132 


IF( lSTART)70,80.-70 



133 

70 

continue 



134 


WRI TE ( 2 ) ZERO»T»nTCYCL*AO.R.JPR 



135 


WR I TE ( 2 } VMAG ♦ VD J R . TTLDR . GAMMA ♦ P0 » ROO ♦' I MX t JMX .NPRPLT » 


136 


178 



1 1 U PROpTYl I * J,K) ,K=1 *4 ) » J = 1 » JMAX » JDF } » I =1* I MAX ♦ JDF ) 
80 NCYCLE=NCYCLE+1 
NTCYCL=NTCYCL+1 
NPNT C=NPNTC+1 
T=T+DELT 

CALL MVPNTIRCjOC) 

IF(MOD(NPNTC.L).nE*0) GO TO 801 
JP=JP+1 

PTCRD(JP,1)=RC 
PTCRD ( JP * 2 } =0C 
801 CONTINUE 
EKF=EKFS 

C COMPUTE W(T+DELT) FOR FIRST ROW 

CALL FRSTRO 
DO 475 1=2 * I MAX 
DC 475 K= 1 *4 

475 PROPTY( I ♦ 107 *K ) =pROPTY ( I * 1 »K ) 

DO 480 1=2*1 MAX 

CALL VECTFRC I *0*oVRLAYC1*2*I) ) 

CALL VECTFR(I»l»oVRLAY(l,3»I)) 

CALL VECTRG(I»0,r)VRLAY(5»2»I)) 

CALL VECTRGf I *1 >oVRLAY(5»3»I ) ) 

CALL VECTRS (1*0 »qVRLAY (9*2*1)) 

CALL VECTrSCI*1*0VRLAY(9.3»I)) 

480 CONTINUE 
J=0 

DO 485 I =2 » IMAXMl 
11 = 1+1 

CALL QUADK I *J,0VRPRM(1»2»I1) *1) 

CALL TEMPFW(OVRPrM(1»2»I1) *OVRPRM ( 5 * 2 » 1 1 ) ♦ I » J » 1 ) 
CALL T£MPGW(OVRPrM( 1,2*11 ) .OVRPRM(9»2» 11) I 
CALL .TEMPSW ( OVRPrM (1*2*11) »OVRPRM ( 13 .2 * 1 1 ) ) 

485 CONTINUE 

DO 510 J=1 ♦ JMAX 
JP1=J+1 

DO 500 1=2* IMAX 
DO 490 K=1 *12 

OVRLAY { K *1*1) =OVrLAY ( K . 2 » I ) 

490 OVRLAY(K*2»I )=OVpLAY(K*3*I ) 

CALL VECTFRI I*JPi»OVRLAYU»3*I) ) 

CALL VECTRG ( I » JPi *OVRLAY (5*3*1) ) 

CALL VECTRS( I.JPi»0VRLAY(9*3»I) ) 

500 CONTINUE 

DO 501 1=2*1 MAXMl 
11 = 1+1 

DO 495 K=1 * 1 6 


COMBO 10 5 


139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 
1.54 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 
is r 
168 

169 

170 

171 

172 
1T3 

174 

175 

176 

177 ' 

178 
T79“ 

180 

181 

182 


179 




495 

0VRPRM(IC*l*Il)=0vRPRM(K*2,Il} 


183 



CALL QUAD1 ( I ♦ J *0VRPRM ( 1 *2 *11 ) » I J 


184 



CALL TEMPFW ( OVRPpMI 1*2*111 *0VRpRM ( 5 * 2,* 1 1 ) * I *J*1)- 


185 



CALL T EMPGW I OVRPrM (1*2*11) »OVRPRM (9*2* 11) ) 


186 



CALL TEMPSWf OVrPpMI 1 »2 * 1 1 ) »0VRPRM( 13*2»Il) ) 


187 


501 

CONTINUE 


188 

c 

COMPUTE W( T+DELT ) AT INTERIOR PQINTS 


189 



DO 502 1=3*1 MAXM] 


190 



CALL GENPT ( I * J) 


191 


5 02 

CONTINUE 


192 



IF(J.NE.l) GO TO 510 


193 



DO 505 1=2* IMAX 


194 



DO 505 K=1.4 


195 



PROPTYt I »108 *K)=dROPTY(I*1»K> 


196 


5 O 5 

PROPTYt I * 1 »K ) =PRrPTY ( I » 107 »K ) 


197 


510 

continue 


198 



DO 515 1=2*1 MAX 


199 



DO 515 K.= 1 » 4 


200 


515 

PROPTYt I ,l.K)=PRoPTYU *108»K) 


201 

c- 


COMPLETE MESH CaLC AT 1=1* J=1 

COMB0150 

202 



CALL CENTER 


203 



CALL CHARGE 

1 COMB0162 

204 



NCLCM=NCLCM+1 


205 



NPICTR=NPICTR+1 


206 



NSAVE=NSAVE+1 


207 

c 


NOISE SUPPRESSOR 

C0MB0163 

208 



DO 50 1=1 » IMAX 

COMBO 164 

209 



DO 50 J=1 » JMAX 

COMB0165 

210 



I F ( I.E0.1.AND.J.6T.1) GO TO. ,50 

COMB0166 

211 

c 


TEST FOR NEGATIVE DENSITY 

COMB016 

212 



IF(PROPTY(I*J»1).LE.O.) GO TO 181 ' 

C0MB0168 

213 



DO 51 K=2.3 

COMBO 169 

214 

c 


ELIMINATE SPURloUS VELOCITIES 

COMB0170 

215 



IF CABS (PROPTYt I , J,K)) .LE.l.E-14) PROPTY ( I ♦ J *K) =0. 

» 

216 


51 

CONTINUE 

C0MB0172 

217 


50 

CONTINUE 


218 

c 


FIND NEW STABILITY NUMBER 

COMB0158 ' 

219 



CALL CONVRG(FUDG) 

COMB0159 

220 


81 

CONTINUE 


221 



IF(NPNTC-IPTPLT)p20*810,310 


222 


810 

continue 


223 



WR I TE ( 2 ) 0NE»T,NTCYCL»A0»R»JP 


224 



WRI TE ( 2 ) (PTCRD(I,1) »PTCRD(I »2)»I=l*JP) 


225 



NPNTC=0 


226 



JP = 1 


227 



PTCRD(1,1)=RC 


228 


180 





PTCRD ( 1 » 2 ) =OC 


229 


820 

CONTINUE 


230 



I F { NCLCM— KALKOM )ft9»88.88 


23X 


'88 

CONTINUE 


232 



WRITE(6*606)T»NT.-YCL 


233 


6 06 

FORMAT !3X11HT0TA|_ TIME=E14.7 .3X17HNUMBER OF CYCLES=I4) 

COMB0186 

234 



NCLCM=0 


235 



I F ( I.PRPLT.NE.O) NPRPLT=MODtNCYCLE»IPRPLT) 


236 



WR I TE ( 2 ) ZERO»T» N TCYCL*AO»R»JPR 


237 



WRITE! 2) VMAG » VDt R .TTlDR .GAMMA »PO .ROO. IMX.JMX »NPRPLT * 


238 



1( ( (PROPTYt I , J » K) , K= 1 »4 ) ,J=1.JMAX,JDF) . I=1»IMAX,JDF) 


239 


89 

CONTINUE 


240 

c 


TEST TO SEE IF FINISHED 

COMB0174 

241 



IF! NCYCLE— NCYCMX )890»91»91 


242 


890 

CONTINUE 


243 

c 


TEST TO SEE IF PRINT TIME AFFIRMATIVE 

C0MB0176 

244 



IFtNPICTR— NNPCMX} 901 .90,90 


245 


90 

CONTINUE 


246 

c 


PRINT DISPLAY OF FLOW FIELD ALONG THE RAYS 0»PI/2»PI »3*PI/2 

COMB018 0 

247 



CALL SECOND (RTM) 


248 



CALL PRTOUT(RTM) 


249 

c 


RESTART PRINT CyClE 

COMB018 

250 



NP I CTR=Q , 


251 


9 O 1 

IF( ISAVE.EQ.O.OR.NSAVE.LT.ISAVE) GO TO 80 


252 


902 

CONTINUE 


253 



REWIND 3 


254 



WRITE ( 3)1 ( (PROPTy! I ♦ J »K ) »K=1 »4 ) »J=1 »JMAX) .1 = 1 * I MAX) 


255 



WRITE(3)T,nTCYCL,VmAG,VDIR.TTLDR.RC.OC 


256 



WRITE (3)' JP» (PTCpD(I.l) » PTCRD! I»2) .1=1 »Jp) 


257 



NSAVE=0 


258 



GO TO 80 

COMB0189 

259 


91 

CONTINUE 


260 



CALL SECOND(RTM) 


261 



CALL PRTOUT ( RT-M) 


262 



I F ( 1 SAVE )182»5»lft2 


263 


181 

WR 1 TE ! 6 . 6666 ) 

C0MB019 

264 

6666 

FORMAT ( lHl. 2 OX. 63 H********** ERROR ABORT - NEG. DENSITY IN THE 

FC0MB0198 

265 




266 



COMB0200 

267 



WRITE (6.707) U . J, ( PROPTY! I » J , K ) » K=1 »4 ) .1=1. I MAX) 


268 


7C7 

FORMAT! IX, 214 .4E23.7) 


269 



GO TO 184 

COMB0201 

270 


182 

CONTINUE 


2 7Y 



REWIND 3 


272 



WRITE! 3) ( ! ! dROPTYI I »J»K) ,K=1 .4) ,J = 1, JMAX ) . I =1,1 MAX) 


273 



write(3)T,ntcycl,vmag,vdir»ttldr.rc»oc 


274 


181 



WR I TE ( 3 ) JP» (PTCrDH »1 ) »PTCRDfI »2 ) » 1=1 »JP) 275 

184 GO TO 5 276 

186 CONTINUE 277 

ENDFILE 2 278 

END FILE 3 279 

STOP 280 

END COMB0209 281 


182 
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********** 

********** 

********** 

********** 

********** 

********** 


SUBROUTINE INITIl ' s " C0MB0465 

C********* SETS UP THp INITIAL DATA IN THE ARRAY PROPTY AFTER-' C0MBQ466 

c********* COMPLETING The NORMALIZATION FROM INPUT data ************** COMB046 

******** , ********************************************************(-0^00468 
*************** < ****************-iH(.***************#*************** ( -QHg04g,g 
****************************************•************#*.******#****. ^_OMgO 47 0 
*********** *■ SCALING' RULES * * *•* ********* *C0M80471 

******************************** COMBO 472 
EQ 1 *(TO/RHOO) * *FQ2*(T0/ ( RHO0*AO) ) * »EQ3*(TO/(RHOO*AO) )»♦ C0MB0473 

E04* ( TO/ ( RH00*Ao**2 ) ) t » » , T0= ( RMAX/AO ) C0MB0474 

******************************** COMB0475 
TIME IS SCALED BY ...THE Ref TIME SCALE- **********COMB0476 
DISTANCE IS SCALED BY'. ..COMBUSTION CHAMBER RADI US***C0MB047 
VELOCITY IS SCALED BY... REF SOUND SPEED' **********COMB0478 
DEmSiTY IS SCALED BY. . .REFERENCE DENS I TY************COMB0479 
PRfSSURE IS SCALED BY.. '.REF SOUND SPEED** 2 *REF COMBO 48 O 

DENS j T Y*********************************************cOMb048 1 
************************************* **************************** c oMb048 2 
***************************************************************** C 0Mg04g 3 
************************************* **************************** { -Qjwig0484 
COMMON PROPTY » GAmMA 3 » GAMMA 1 , GAMMA » DE LR » DELO > PO , PMAX » PR , E R * T AU , IMAXCQMBO 48 5 
1* JMAX.T ♦DTDR»DTDn»DT»P»A0iR00»NCYCMX*RMAX 
DIMENSION PROPTY{ 32*108*4) 

COMMON/LE/FJMAX* IMAXM1 *RAD( 32) »OVRLAY( 12*3*32 ) »OVRPRM ( 16 * 2 *32 ) 
COMMON/CNTRE/COSTHdOs) »SINTHQ08) *THTA(l08) 

COMMON/M I DDL E/ VM AG » VD I R 

common/ ncplot/nt cycl* i start *rc *oc 
COMMON/ EDOT/EKF 
COMMON/TLDR/TTLDr 
COMMON/QQXM/XM»T o*OKR 

COMMON/PRTOPT/INTPNT*XTO»DETR(5) »DTR(5 ) »IDETR(5) »pdm 
COMMON/JPPT/JP*PTCRD 
DIMENSION PTCRD( 501,2) 

DATA PI *TW0PI/3.14159265. 6 . 283185-31/ : 

■5EADI5.5) GAMMA*PO*PMAX»TAU».RMAX COMB0490 

WRlTE(6*65) „ COMB0491 

65 F0RMAT(4X.5HGAmMA*5X*16HCHAMBER PRESSURE , 2X * 14HPULSE PRESSURE »4X » 1COMB0492 ‘ 
1 5H COMB0493 

2PULSE DURAT ION *4x » ' COMB0494 

I 4 HCHAMBER RADIUS/20X»3HPSI »15X»3HpSl » 15X * 3HSEC » 15XCOMB0495 

COMB0496 

**************************** * COM BO 49 

* * BOMB PULSE PRESSURE AND TIME DURATION ARE ONLY COMB0498 

* * TO BE REFERENCED WHEN INITIAL CONDITIONS ARE COM80499 

* * FOR A PULSE TYPE CALCULATION *******.**** COMB0500 
**************************** *c0Mb0501 


2,2HFT//) 
* * * * 
* * * * 
* * * * 
* * * * 
* * * * 


999999 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
‘23 

24 

25 

26 

27 

28 
29' 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 
40_ 

41 

42 

43 

44 
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n n n n n n 


C 


WRITE (6 *4) GAMMA ? pO»PMAX.T'AU»RMAX 

F0RMAT(IX»2E14.7,E18.7»E19.7»F12.4///) 
READC5,5)XM*ROO*oKR 
PO = PO 

T0=(P0*144. ) /< <1a45./XM)*ROO) 

WR ITE ( 6 »68 ) 

63 FORMAT(3X»IOHMOL WEI GHT , 3X . 19HCHAMBER TEMPERATURE//) 
WR I TE ( 6 » 5 ) XM »T0 
WRITE(6.76) 

76 FORMAT ( 1H ///) 

GAMMA SPECIFIC HEAT RATIO 
PO UNPERTURBED PRESSURE 

PMAX AMPLITUDE OF PRESSURE PERTURBATION 
TAU IS DURATION OF PERT, 

IMAX » JMAX MESH DIMENSIONS 

XM MOLECULAR WFlGHTt TO CHAMBER TEMPERATURE 
7 FORMAT (214) 

5 FORMAT (4E14,7»2FlO,4) 

AO=SQRT (GAMMA*32.17*P0*144,/RQ0 ) 

RHO=RO/ROO=1, 

RHO=l. 

TO=RMAX/AO 

XTO=TO*1COO. 

EQ2=ROO*AO/TO 

p=:pO* 144. *32.17/! RMAX*EQ2 ) 

DELR= l.O/FLOAT ( I mAX-2) 


COMB0502 

COMB0503 

COMB0519 

COMB0505 

COMB0506 

COMB050 

COMB0508 

COMB0509 

COMB0510 

COMB0511 

COMB0512 

COMB0513 

COMB0515 

COMB0516 

COMB051 

COMB0521 

COMB0522 

COMB0523 

COMB0524 

CGMBQ52 5 

C0MB0526 

COMB052 


DELO=2. *P I /F JMAX 
GAMMA3=GAMMA-3. 
GAMMA 1=GAMMA-1. 
PR=PMAX/PO 
ER=PR/GAMMA1 
WR I TE ( 6 *67 ) 


COMB0530 
COMB053 1 
COMB0532 
COMB0533 
COMB0534 


67 FORMAT! 1X»16HREDUCED PRESSURE » 2X* 15HREF SOUND SPEED»2X* 11HREF DENSCOMBQ535 
1ITY,6X,7HDElTA R , 7X , IIHDElT A THETA . fyX * 43HPR?SSURE AND INTERNAL ENECOMBQ536 

2RGY RATIO OF PULSE//) ^ ^ rSIliSSln 

WR I TE ( 6 » 6 ) P> AO»ROO,DELR»DELO»PR»ER,XTO COMB0538 

6 FORMAT! 7E16.7///] 6H REF TIME SCALE=FT5 . 5/3X , 8HMILL I SEC/ // ) COMB0539 

WR I TE ( 6 > 566 ) COMBO 540 

* — FORMAT! 1^*11 7H**************************************** eN P 0fr INITCOM B 0541 

1 1 L 1 2 AT I ON PHASE ************************************************* / C 0M B0542 
2/////) ' COMB0543 


ELN=TWQP I /F JMAX 


RAD ( 1 ) =0,0 
DO 501 1=2 i IMAX 
501 RAD! I )=RAD( 1-1 )+nELR 
DO 510 J=1 » JMAX 


45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 
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TH=J— 1 91 

TH=TH*DELO 92 

THTA ( J) =TH 93 

COSTH(J) =CCS<TH> 94 

510 SINTH( J) =SIN (Th> 95 

EKF=P/5AMMA1 96 

DETR( 1] =0.681 97 

DETR<2)«1.181 98 

DETR (35=1.681 99 

DETR t 4 ) =3 .68 1 100 

DFTR( 5) =12.0*RMAx 101 

PDM=GAMMA*PO 102 

DO 520 1=1, A 103 

G=DETR ( I ) /DETR ( 5 ) 104 

J=Q/DELR+1 • 0 105 

DTR ( I ) = ( Q-RAD ( J ) ) /DELR 106 

520 IDETR ( I ) =J 107 

DTR ( 5 ) =1 .0 108 

IDETR ( 5 ) =IMAX-2 109 

I F ( I START ) 506 * 5 O 5 » 506 110 

505 CONTINUE 111 

READ(l) < UpROPTY ! I ,J,K) »K=1 , 4 ) »J = 1»JMAX) .I=1,IMAX) 112 

REAC(l) T ,NT CYCL , VMAG » /DIR » TTLDR » RC*OC 113 

READ ( 1 ) JP»(PTCrD(I»1 I*PTCRD(I»2)»I=1»JP5 114 

RETURN 115 

506 CONTINUE 116 

CALL BOMB 117 

504 RETURN 118 

END COM 8 0.5 6 2 119 
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SUBROUTINE BOMB 999999 

COMMON PROPTY ♦ SAyMA3 * GAMMA !.» GAMMA * DELR ♦ QELO * PO » PMAX ♦ PR. ER » T AU ♦ | MAX 
l»JMAX*T.DTDR.DTDn»DELT»P»AO»RO0.NCYCMX.R 1 

DIMENSION PROPTY(32t 108»4) 2 

COMMON/LE/FJMAX»tMAXM1 »RAD! 32) »OVREAY( 12 * 3 ♦ 32 > »OVRPRM ( 16 »2 » 32 ) 3 

COMMON/CNTRE/COSTH(l08) »SINTH ( 108 ) »THTA(l08) 4 

COMMON/M IDDLE/VM/iG »VOIR 5 

DIMENSION XR(201 1 ,ZR(201),ZP(201) »ZV(201) 6 

EQUIVALENCE (Zr.oVrlAY),(ZV» 0VRLAY(202 ) )»(ZP»0VRl,AY<4C3) ). 7 

l(XR»OVRLAY(604n 8 

PZ=GAMMA*PO 9 

DELTA=0.5 10 

E=P/GAMMA1 11 

READ (5*100) N»BR,BO 12 

READ! B,?OOJ IXR( I l »ZP( I) .ZR(I) »ZV( I ) .I=1»N> 13 

NM=N— 1 14 

XZ=BR*COS ( BO ) 15 

YZ=BR*SIN C BO ) 16 

RMXS=0, 04 17 

PROPTY! 1»1»1)=1«0 18 

PROPTY (1»1*2)=Q»0 19 

PROPTY(l*l*3)»0,n 20 

PROPTY! 1 »1»4)=E 21 

DO 50 1=2* IMAXM1 22 

DO 50 J=1 » JMAX 23 

XP=RAD( I ) *COST(i ( J ) — XZ 24 

YP=RAD( I)*SINTH( J)-YZ 25 

RS=XP*XP+YP*YP 26 

if(rs.gt.rmxs) go to 40 27 

RP=SQRT(RS) 28 

DR=R*RP 29 

CALL SEEK(DR»XR»nM,IJ) 30 

IF! I J ) 30,20,30 31 

20 PRINT 300 »DR »XR ( 1 ) 32 

STOP 33 

30 CONTINUE 34 

QQ= ! DR— XR ! I J ) ) /<XR!IJ+1 J-XR-! IJ} ) 35 

QR=ZR ( I J ) + ( ZR ( I J+l ) -ZR ! I J ) )*QQ 36 

QP=ZP!TJ)+(Zp{ U+l )~ZP! I J) )*QQ 37 

OV=ZV! I J)+(ZV! I J+l l-ZV! I J) ) *QQ 38 

QR=QR/ROO 39 

OP=QP/PZ 40 

QV=OV/AO 41 

G=QV/RP 42 

XU=XP*Q 43 

YV=YP*Q 44 
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UsXU*COSTH(J)+YV*STNTH('JJ ' 

V=YV*COSTH( J)-XU*SINTH( J) 

PROPTY! I »J*1 >=QR 

PROPTYH )=PRoPTY( I»J»1)*U 

PROPTY! I *J»3 ) =PRpPTY( I»J»1)*V , . . 

PROPTY< I »J*4) =QP/ GAMMA 1+0.5 *PROPTY( I »J » 1 }*< U*U+V*V) 
GO TO 50 
40 CONTINUE 

PROP-TY! I *J,1 )=l.n 
PROPTY ( I » J*2 ) =0.o 
PROPTY ( I *J,3 )=0.o 
PROPTY { I » J *4 ) =E 
50 CONTINUE 
VMAG=0.0 
VDIR=0.0 
RETURN 

100 FORMAT ( I10*2E10.7) 

200 FORMA T ( 4E15 . 8 ) 

300 FORMAT ( 1 1H SEEK FRROR » 2E20 . 10 ) 

END 


45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 
63' 
64 
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SUftROUTT'NF CONVRr ( FACTOR ) COMB0355 

C********* COMPUTES A 'TIME INCREMENT TO. BE USED IN DIFFERENCE EQUATION C0MB0356 
C********* BASED ON C,F,L» CONDITION *###****#**#****#*****COMB035 

COMMON PROPTY » GAmMA 3 * GAMMA 1 * GAMMA *D£lR »DELO *PO *PMAX • PR* ER »TAU » IMAXCOMB0358 
l*jMAX*T»DTDR»DTDrtfDT»P*AO*ROO»NCYCMX *R 
DIMENSION PROPTY (32*108*4) 

COMMON/LE/FJMAX* IMAXMI »RAD< 32) *OVRLAY( 12*3*321 »OVRPRM< 16 *2*32 ) 

DT=0.3/( 16.*. 75/?»9445 ) C0MB036A 

DT=0.6/< 16.*.75/‘*.9AA5 ) .C0MB036 5 

DT=DT*FACTOR COMB0366 

SQ=1 • /SORT (2.) COMB036 

DO 1 1 = 2 » IMAXMI 

DO 1 J= 1 * JMAX C0MB0369 

IF(I.EO*1.AnD.J.gE*2)GO TO 1 ’ C0MB0370 

VElSQR= { PROPTY { I * J *2 ) **2+PROPTY { I » J * 3 ) **2) /PROPTY ( I * J*l)**2 C0MB0371 

IF ( VELSQR} 8*8,2 C0MB0372 

? RG=PROPTY{I*U,A)/PROPTY(I»J»l)~Q.5*VELSQR C0MB0373 

IF(BG) 8*7*7 9^0374 

7 DENOM=SQRT ( GAMMA*GAMMA1*BG ) C0MB0375 

TERM=SQ/(DENOM+SoRT tVELSQR-J) 

TERMO=TERM*FACTOr*DELO *RAD(I) 

T£RMR=TERM*FACTOp*DELR 

DTE=DT 

DT=AMIN1 (DT»TERMr*TERMO) COMB0380 

IF(DT-DTE) 150,8,8 „ _ 

150 IT — I COMB038 3 

jjlj COMB038 A 

8 CONTINUE • C0MB038 5 

1 CONTINUE C0MB0386 

DTDR=DT /DELR C0MB038 


COMB0380 

COMB038 3 
COMB038 A 
COMB038 5 
C0MB0386 

rnMDAOQ 


DTDO=DT/DELO 

RETURN 

END 


COMB0388 29 
COMB0392 30 
COMB0393 31 
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SUBROUTINE MVPNT(RC»OC) „ „ TUAV 

COMMON PROPTY »GAmMA 3 * GAMMA 1 ♦ GAMMA *DELR »DELO »PO ♦ PMAX » PR * ER »TAU ♦ I MAX 
l*JMAX»T»DTDR*DTDh*DT»P»AO*ROO »NCY 


DIMENSION PROPTY(32»108*4) 

COMMON/LE/FJMAX* IMAXM1*RAD( 32 HOVRLAYl 12 ♦ 3 » 32 ) tOVRPRM ( 16 *2*32 ) 
COMMON/CNTRE/COStH( 108 ) *SINTH(108) > tht A,( l08 ) 

DATA PI »TWOPl/3. 1 415 9265 »6i 283185 31/ 

I=INT(RC/DELR)+1 
IF(I.EO.l) 1=2 
J= I NT ( OC/ DELO ) + 1 
I F < J.GT.JMAX) J = jMAX 


JP1=J+1 

I F C JP1.GT.JMAX) JP1 = 1 

Ul = PROPTY( I ♦ J » 2 ) / PROPTY { I » J * 1 ) 

U2=PROPTY ( I + 1 » J » ? ) /PROPTY ( 1 + 1 » J » 1 ) 

U3 = PROPTY( I » JP1 » ? 5 /PROPTY ( I » JP1 » 1 ) 
U4=PR0PTY( I+l» JPt , 2 ) /PROPTY ( 1+1 *JP1 *1) 

V1 = PR0PTY( I »J*3 ) /PRO°TY( I » J »1 ) 

V2 = PROPTY( 1 + 1 » J * 3 ) /PROPTY ( I + 1»J*1 ) 
V3=PRO°TY( I . JP1** ) /PROPTY ( I *JP1»1 ) 
V4=PR0PTY ( 1+1 ♦ JPi *3 ) /PROPTY 1 I+l » JP1 *1) 

A= ( RC-RAD ( I ) )/DElR 
B=(OC-THTA( J) )/DfLO 
C=A*B 

U=U1+A*(U2-U1 )+B*(U3-Ul >+C* (U4-U3-U2+U1) 
V=V1+A* (V2-V1 )+B*(V3-Vl )+C* t V4-V3-V2+V1 ) 

oc=oc+v*dt/rc 

RC=RC+U*DT 

IF ( RC.GT * 1. ) Rr=l. 

IF1RC.GE.O.) GO TO 10 
RC=—RC 
OC=OC+PI 
10 continue 

IF10C.LT. 0.0) OC=OC+TWOPI 
IF10C.GE. TWOP I ) oC=OC-TWOPI 
RETURN 
END 
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29 
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33 
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oooon? 

ooooo? 

oooon? 

ooooo? 

ooooo? 

000002 

ooooo? 

000 004 

ooono5 

000007 

000013 

000012 

000013 

000030 

000032 

000035 

000040 

000045 

000052 

000054 

000055 
000067 
000102 
000304 
000105 
000106 
0003 07 
000110 
00011 ? 
000113 
000114 
000115 
000133 
000132 
000137 
000144 
000153 
000156 
000163 
000170 
000172 
000173 
000175 
000377 
000204 
000214 
000222 
000230 


SUBROUTINE FRSTRO 

******** COMPUTES VALUE OF WfT+DELT) ON THE CIRCLE R*DELR ' COMB 

******** the first. ROW OF -NET POINTS CONTIGUOUS TO THE CENTER ******C0M8 
COMMON PR0PTY,GAMMA3,GAMMA1,GAKMA.DELR.. nELO.PO,PMAX,PP,ER,TAU, IMAXCOM8 
1. JMAX,T.DTDR,DTDO,OT,P, AO,ROO,NCYCMX,R 
DIMENSION PROPT V (32,108,4) 

COMMON/LE/FJMAX, IMAXMDRAD(32),0VRLAYM2,3,32),0VRPRM(16,2,32> 
COMMON/CNTRE/COSTH(108) ,SINTH(108) ,THTAfl08) 

COMMON/M I DDLE/VMAQ,VD I R 
COMMUN/FRS/FRSAV (4,108,3) 

RHO=PPOPTY(l.l,l) 

E=PRDPTY(1.1,4) 

RHOU=RHO*VMAG 
DO 20 J=1,JMAX 
DO 15 1=1,3 
DO 10 K=1 , 4 

10 FRSAVtK, J, I )=PROPTY( I, J,K> 

15 CONTINUE 

TH = VDIR-1 HTA( J) 

PROPTYd, J,1 >bRHO 
PROPTYd, J,2)sRH0U*C0SCTH) 

PROPTYd, J, 3 )bRHOU*SIN(TH) 

PROPTYd, J,4 )bE 
DO 20 K=l, 4 

PROPTYd, J,K) =0.5* (PROPT Yd, „,K)+PROPTv <2, J,K> ) 

20 PR0PTY(3, J,K)=0 .5*(PROPTY(2,w,K)*PROPTY( 3, J,KH 
DR=DELR 
DTR=DTDR 
DELR=0 . 5*DELR 
DTDR=2. 0*DTDR 
RAD(1)=DELR 
R AD ( 2 ) =DR 
RADC3)=DELR+DP 
DO 475 1=1,3 
DO 475 K=l,4 

475 PROPTYCI, 107, K)=PR0PTY(I»1,K) 

DO 460 1=1,3 

CALL VECTFR ( ! , 0,OVRLAY(1,2, 1 ) ) 

CALL VECTFRd , 1 , OVRLA Y (1 , 3, 1 ) ) 

CALL VECTRGd , 0 , OVRL AY ( 5 , 2 , 1 ) ) 

CALL VECTRG ( 1,1, OVRL AY (5,3,1)) 

CALL VECTRS(I,0,OVRLAY(9,2,D) 

CALL VECTRSt 1 , 1, OVRLAY ( 9, 3,.l ) > 

480 CONTINUE 
J = 0 

DO 485 1=1,2 
11=1+1 

CALL QUADK I , J, OVHPRM d,.2 , ID, I) 

CALL TEMPFW ( OVRPRM d, 2, 1 1 ) , OVRPRM ( 5, 2 , II > . 1 1 , J, D 
CALL TEMPGW( OVRPRM (1,2, ID , OVRPRM ( 9,2. li) > 

CALL T6MPSW( OVRPRM (1,2, I 1 > , OVRPRM M 3 , 9 , ill) 

485 CONTINUE 
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0 0 0 ? 3 ? 
0 0 023-0 
000236 
000237 
000240 
000246 
000253 
000257 
000264 
000273 
00027? 
000275 
000277 
000300 
000313 
000315 
000325 
00033? 
000343 
000343 
000345 
000347 
000353 
000352 
0 0 03'60 
000367 
000372 
00037? 
000374 
000410 
000413 
000413 
000414 

000415 
000416 
000420 
000423 
0 0 043 P 
000436 
000443 
000451 
000455 
000455 


DO '510 J=1,JMAX 
JP1 = J + 1- 

DO 500 1=1,3 • 

DO 490 K = 1 , 12 

OVRLAY(K,l, I )»OVRLai vi\,c, i ) 

490 OVRL Ay < K , 2, I ) bQVRLA Y ( K.» 3:, I’) 1 ' 

CALL VECTFR(I,jPl,0VRLAY(l,3»n) 

CALL VECTRG(I,JP1,0VHLAY<5,3.I>) 

CALL VECTRSCI, JPl , OVRLA Y ( 9 , 3 , 1) ) 

500 CONTINUE 

DO 501 1=1,2 
11=1+1 

DO 495 K = 1 , 16 

4 95 OVRPRMCK.i, 1 1 ) =OVRPRM ( K, 2 , ID 

CALL QUAD 1(1 , J,0VRPRM<1,2, ID , I ) 

CALL TEMPFW(0VRPRM(1,2, 11, , OVRPRM<5,2, M >, II, J,D 
CALL TEMPGW(OVRPRM(l>2» I 1 > , OVRpRN < 9 , 2 . I D > 

CALL TEMPSW(0VRPRM(l,2-> II )., OVRPRM M3, 9 . Ill) 

501 CONTINUE 

CALL GENPT ( 2 , J ) 

IF(J.NE.l) GO TO 510 
DO 505' 1=1,3 
DO 505 K = l» 4 

PROPTYC I,10B,K)»PROPTY( 1,3 ,K) 

50 5 PROPTY ( I , 1,K )=pROPTY( I ,107,K ) 

510 CONTINUE 

DO 515 1=1,3 
DO 515 K=i, 4 

515 PROPTY ( I,1,K)bPR0PTY'( 1 ,10 8,K> 

DELR=DR 
DTDR=DTR 
RAD < 1 ) - 0 • 0 
R AD ( 2 ) =DELR 
RAD(3)=DELR+DELR 
DO 40 J=1,JMAY 
DO 40 K=1 , 4 

PROPTY <1, J,K)sFRSAV(K, J,1 ) 

FRSAV(K, J,1)=PR0PTY(2, J,K) 

PROPTY(2, J,K)«FRSAV(K, J,2) 

PROPTYC 3, J,K)oFRSAV(K, J,3) 

40 CONTINUE 

. return 

END 
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SUBROUTINE VECTFp ( 1 1 * JJ »R ) COMB0395 

C********* COMPUTES TrE VALUE OF THE VECTOR FUNCTUQN F<W) WHERE W COMB0396 

C********* IS The VECTOR OF CONSERVATION VARIABLES ******************* COM 00 3 9 
COMMON PROPTY»GAmMA3» GAMMA 1 .GAMMA » DELR *DELO »PO » PMAX » P.R* ER » TAU ♦ IMAXCOMB0398 
1 »JMAX»T»dTOR*DTDo»DT»P»AO'*ROO»NCYCMX»RR 


DIMENSION PROPTY(32»108»4) 

COMMON/LE/FJMAX * yMAXMl tRADt 32) .OVRLAYt J. 2 1[ 3 * 3 2 ) ♦OVRPRM ( 16 * 2 * 32 ) 
DIMENSION R(4) 

I = 1 1 
J=JJ 

I F ( J.LE.JMAX) GO TO 7 
J=1 

7 IF(J.EQ.O) J= JM.Ax 

X=pROPTY ( I * J»2 ) /pROPTY ( I ,J»1 ) 

Y=PROPTY ( I »J.3)/pRCPTY(I.J»l) 

C Z IS DISTANCE FpOM ORIGIN 


COMB0404 

-C0MB0405 

C0MB0406 

COMB040 

COM BO 40 8 

COMBO'409 

COMB04I1 

COMB0412 

C0MB0413 


Z=RAD( I J 

R ( 1 ) =-PROPTY ( I » J » 2 )*Z ‘ COMB0416 

R ( 2 ) =PROPTY { I .J»? )*GAMMA3*.5*X-GAMMA1*( PROPTY ( I ♦ J .4 ) -. 5*Y*PR0PTY COMB041 
1(1, j, 3)) COMB0418 

R ( 2 ) =R ( 2 ) *Z ’ C0MB0419 

R( 3)=-X*PR0PTY(I , J,3 ) *Z COMB0420 

R ( 4 ) =-( X*PR0PTY ( i »J»4)*GAMMA-GAMMAl*0.5*PROPTY( I » J » 2 ) *( X**2+Y**2 ) )COMB0421 
1*Z COMB0422 

RETURN COMB0423 

END COMB0424 

SUBROUTINE VECTRp( 1 1 »JJ»R) C0MB0426 

c********* COMPUTES T H E VALUE of THE VECTOR FUNCTUON G(W) WHERE W COMB042 


C********* is THE VECTOR OF CONSERVATION .'VARIABLES ***************»***COMB0428 
COMMON PROPTY *GAmMA 3* GAMMA 1 » GAMMA »DELR *DELO *PO» PMAX * PR, ER »TAU * I MAX COMB 042 9 
1 ,JMAX»T»DTDR»DTDo»DT»P»AO»ROCtNCYCMX»RR 
DIMENSION PROPTY(32*108»4) 

COMMON/LE/FJMAX » I MAXM1 *RAD ( 32 ) tOVRLAY t 12*3*32) »OVRPRM ( 16 *2 >32 ) 


DIMENSION R ( 4 ) ' C0MB0435 

I=II COMB0436 

J=JJ COMB043 

IF( J.LE.JMAX) GO TO 19 COMB0438 

J=1 COMB0439 

19 IF(J.EQ.O) J=JMAx C0MB0440 

9 X=PROPTY ( I » J ♦ 3 ) /dROPTY ( I * J * 1 ) C0MB0443 

2 Y= PROPTY ( I » J ♦ 2 ) /oRO p TY ( I * J • X > COMB0446 

5 R ( 1 ) = -PROPTY (I , J , 3 ) COMB0458 

R(2)=R(1)*Y C0MB0459 


48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 



R( 3 )=-0.5*GAMMA3*Rt 1 )*X-GAMMAl*( PROPTY ( I * J*4)“0»5*Y*PROPTY( I i J 

*2 ) )COMB0460 

91 

R'( 4)=-(GAMMA*X*PpOPTY( I » J *4 ) -GAMMAl*0. 5*PROPTY ( I * J»3 )*( X**2+Y**2 ) )C0MB0461 

92 

RETURN 

COMB0462 

93 

END 

COMB0463 

94 

subroutine VECTrs ( 1 1 * JJ»S } 

COMB0583 

95 

C********* COMPUTES ThE VALUE OF THE VECTOR FUNCTUON StW) WHERE W 

COMB0584 

96 

r********* IS The VECTOR OF CONSERVATION VARIABLES *******************C0MB058 5 

97 

COMMON PROPTY»GAmMA3»GAMMA1 ,GAMMA»DELR *DELO »P0 » PMAX ♦ PR* ER ♦ T AU * 

IMAXCOMB0586 

98 

1* JMAX,T,dTDR»DTDo»QT»P.AO»ROO»NCYCMX»R 


99 

DIMENSION PROPTY (32 ♦108*4) 


100 

C0MM0N/LE/F JMAX* IMAXM1 *RAD ( 32 } .OVRLAY (12*3 . 32,)-*OVRPRM (16*2*32) 


101 

COMMON/ EDOT/EKF - 


102 

COMMON/NCPLOT/NTcYCL»ISTART 


103 

DIMENSION S(4)*W(4) 


104 

i= i r 

COMB0593 

105 

j=jj 

COMB0594 

106 

IF(J.LE.JMAX) GO TO. 7 

COM BO 59 5 

107 

J=1 

COMB0596 

108 

7 IF(J.EQ.O) J=JMAX 

C0MB059 

109 

X=PROPTY ( I » J *3 ) /pROPTY ( 1 , J * 1 ) 

COMB0598 

110 

Y=PROPTY ( I » J *2 ) / dROPTY ( I ♦ J » 1 ) 

COMB0599 

111 

PRS = GAMMA1*( PROPTY ( I *J*4)-0.5*PROPTY( I*J.l )*( Y**2+X**2) ) 


112 

if(prs.lt.o.o) go to 50 


113 

SflJaO.O 


114 

S( 2 ) =PROPTY ( I » J, 1 ) *X**2+PRS 


115 

S ( 3 ) =-PROPTY ( I , J , 1 ) *X*Y 

C0MB0603 

116 

S ( 4 ) =0,0 


117 

RETURN 

C0MB0605 

118 

50 CONTINUE 


119 

WRITE (6*707) ( (M*L» ( PROPTY (L*M«K) *K = 1* 4 ) »M=1 * JMAX ) , L = 1 » I MAX ) 


120 

2 *J* I * (PROPTY ( I * J ,K ) »K = 1 ,4) »NTCYCL 


121 

707 FORMAT (1H0// (2J4»4E23*7) ) 


122 

STOP 


123 

END 

COMB0606 

124 

SUBROUTINE OUADlf II *JJ*TEMPW,1*LL) 

COMB0650 

125 

C********* COMPUTES W, , SQU IGGLE ( T+DELT ) » THE TEMPORARY VALUE 

COMB0651 

126_ 


c********* OF The CONSERVATION VECTOR ******************************* c oMb0652 127 

common propty *gAwma3>gammai»gamma»delr*delo*po»pma'x*pr»er*tau» imaxcombo653 iz& 

I *JMAX»T,DTDR »DTDo*DT*p»AO*ROO*NCYCMX*R 129 

DIMENSION PROPTY (32*108*4) 130 

COMMON/LE/FJMAXt rMAXMl > RAD ( 32 ) tOVRLAY ( 12*3*32 } »OVRPRM (.16 *2 *32 ) 131 

DIMENSION AVEWI4) .TEMPWl’(4) »AVES(4) 132 

L=LL , C0MB0660 133 

I- 1 1 COMB066 1 , 134 

J=JJ COMB0662 ' 135 

I F ( L* EQ» I MAX Ml ) r,0 TO 10 - 136 
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HDELR=0,5*DELR 

IF( J.LE. JMAX) GO TO 7 COMB0663 

J=1 COMB0664 

7 IF(J.EQ.O) J= JMAX C0MB0665 

JP1=J+1 COMB0666 

IF{ JP1.LE.JMAX ) cO TO 8 COMB066 

JP1=1 COMB0668 

8 IF C JP1.EQ.O) JP1=JMAX COMB0669 

DO 1 K=l*4 COMB0670 


AVES (K.)=0«25*(0VRLAY(K+8.2*L)+0VRLAY(K+8*3*L) 

] +OVRLAY < K+8 » 3 *L+1 ) +OVRLAY ( K+8 *2 *1/+! J )*DT 
1 AVEW(K)=0.25*(PROPTY( I » J,K)+PROPTY( I+l*J»K)H-PROPTY(I+l* JP1»K)+PROPCOMB0671 
XTY ( I * JP1 »K) ) C0MB0672 

DO 2 K=1 *4 C0MB0673 


? TEMPWl ( K ) =AVEW ( K ) + ( ( DTDR* ( OVRLAY ( K ♦ ? »Lft-l ) -OVRLAY (. K * 2 *L ) +OVRLAY ( K * 3 
1 » L+l ) -OVRLAY ( K» 3 * L ) )+DTDO* ( OVRLAY ( K+4* 3 *1, ) -OVRLAY ( K+4 »2 » L ) +OVRLAY ( 
2K+A»3»L+1)-0 VRLAy(k+A»2»L+15 ) )**5+4VES(K) ) / { RAD ( I ) +HDELR ) 

GO TO 13 

10 RADE=RAD( I )+DELR/2. 

RADI=RADE-DELR 

TEMPWl ( l)=OVRPRM( 1*2*1 )*RADI/RADE 

TEMPWl ( 2 ) =— TEMPWi ( l ) * ( OVRPRM (2*2*1) /OVRPRM ( J » 2 * I ) ) 

TEMPWl ( 3 ) =OVRPRM ( 3 ,2 » I ) 

EMSQ=OVRPRM(2»2* T )*OVRPRM(2*2»I) 

FNSQ=OVRPRM( 3*2* T ) +OVRPRM (3*2*1) 

EMNR= ( EM5Q+ENSQ ) /OVRPRM (1*2*1 ) 

PINTS=GAMMAl*(OVpPRM(A*2*I )-,5+EMNR ) • 
PEXTS=PINTS+DELR/RADI*ENSQ/OVRPRM(l»2* I ) 

TEMPWK A)=PEXTS/gAmMA 1 + .5*( TEMPWl ( 2 ) **2+TEMpWl ( 3 ) **2 ) /TEMPWl ( 1 ) . 

13 RETURN 

END COMB0680 

SUBROUTINE TEMPFw < WTEMP * FOFW* 1 1 . J J ♦ I INDEX ) 

C********* COMPUTES F(W..SQUIGGLE) WHERE W..SqUIQGLE IS THE TEMPORARY COMBO 6 O 9 
C********* VALUE OF T h E CONSERVATION VECTOR **********-»************<;OMb0610 

COMMON PR0PTY»GAf/MA3 * GAMMA 1 * GAMMA *DELR »DELO*PO»PMAX »PR*ER*TAU» IMAXC0MB0611 
l»JMAX*T*DTDR»DTDo*DT*P *AO*ROO-»NCYCMX >R 
DIMENSION PROPTY(32»108»A) 

COMMON/ LE/F JMAX . tMAXMI »RAD( 32 ). * OVRLAY ( 12*3*32) *OVRPRM (16*2.32) 

DIMENSION WTEMP(4) *FOFW( A) COMB061 

JJJ=I 1-1 


Z= FLOAT ( JJJ ) 4-FLOaT (IINDEX)/2* 


Z=Z*DELR 

X=WTEMP ( 2 ) /WTEMP 1 1 ) 

Y=WTEMP ( 3 ) /WTEMP { 1 ) 

FOFW ( 1 ) =-WTEMP ( 2 ) *Z 

FOFW ( 2 ) =WTEMP ( 2 ) *GAMMA3*0 • 5*X-GAMMA1*( WT£MP ( A )-0.5*Y*WTEMP ( 3 ) ) 


COMB062 1 
C0MB0622 
C0MB0623 
COMB062A 


137 

138 

139 
1 AO 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 
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154 

155 
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166 

167 

168 
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171 
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173 

174 

175 

176 

177 

178 

179 

180 
181 
182 
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FOFW ( 2) =FOFW ( 2 ) *?' 


C0MB062 5- 

.183 

FOFW ( 3 ) =-X*WTEMP { 3 ) *Z~' - - 


.C0MB062 6 

184 

FOFW ( 4) X*WT EMd ( 4 ) *GAMMA,-GAMMA1*0.. 5*WT £MR‘(-2.) * ( X**2+Y**2 ),)*Z 


C0MB062 

185 

RETURN 


C0MB0628 

186 

FND 


C0MB0629 

187 

SUBROUTINE TEMPGW<WTEMP*GOFW) - - - - 


COMB0631 

188 

C***-*HHf-*** COMPUTES G{W..SQUIGGLE) WHERE W.iSQUlGGLE IS THE TEMPORARY 

C0MB0632 

189 

C********* VALUE OF T H E CONSERVATION VECTOR ****************-m-******C0MB0633 

190 

COMMON PROPTY»'GAmMA3»GAMMA1 . GAMMA .DELR-.DELO » PO. PMAX » PR. ER» TAU » 

IMAXC0MB0634 

191 

1, JMAX»T»DTDR*DTDo»DT»P.AO*ROO»NCYCMX*R 



192 

DIMENSION PROPTYf 32.108.4) - - ' 



193 

COMMON/LE/FJMAX»iMAXMl.RADt 32) .OVRLAYC 12.3.32) .OVRPRM ( 16 . 2 . 32 ) 



194 

DIMENSION WTEMP(4),G0FW(4) 


C0MB0640 

195 

X=WTEMP(3)/WTEMP(1) 


C0MB0641 

196 

Y=WTEMP(2)/WTEMP(1) 


C0MB0642 

197 

GOFW < 1 ) =-WTEMP ( 3 ) 


C0MB0643 

198 

GOFW(2)=GOFW(l]*Y 


C0MB0644 

199 

GOFW ( 3 ) =-0. 5*GAMmA 3*G0FW ( 1 ) *X-GAMMAl*< WT EMP < 4 ) -0. 5*Y*WTEMP < 2 ) ) 


C0M80645 

200 

GOFW ( 4 ) =- < GAMMA*X*WTEMP ( 4 ) -G AMMAl*0 . 5*WT EMP ( 3 ) * ( X**2+Y**2 ) ) 


C0MB0646 

201 

RETURN 


C0MB064 

202 

END 


C0MB0648 

203 

SUBROUTINE TEMPSyM WTEMP .SOFW ) 


C0MB0566 

204 

C********* COMPUTES S(W. ,'SQUIGGCE) ’WHERE W..SqUIGGlE IS THE TEMPORARY 

C0MB0564 

205 

C********* VALUE OF The CONSERVATION VECTOR ************iHHHt*******c0MB0565 

206 

COMMON PROPTY, GAmMA3» GAMMA 1, GAMMA .DEER .DELO.PO »PMAX »PR» ER.TAU * 

IMAXC0MB056 

207 

l.JMAX.T.DTDR.DTDniDT.P.'AO.ROO.NCYCMX'.R * 



. 208 

DIMENSION PROPTY (32. 108 V4 . 'i. • . 



209 

COMMON/LE/FJMAX. iMAXMl .RAD (32 ) .OVRliAY ( : l-2 ♦ 3 » 32 ) » OVRPRM ( 16 .2.32) 



210 

COMMON/EDOT/EKF 



211 

COMMON/NCPLOT/NTcYCL.I START 



212 

DIMENSION WTEMP(4) »S0FW(4) 


C0MB0573 

213 

X=WTEMP<3) /WTEMP (1) 


C0MB0574 

214 

Y=WTEMP ( 2 ) /WTEMP ( 1 ) 


COMB0575 

215 

PRS=GAMMAl*(WTEMp(4)-0.5*WTEMP(l)*(Y**2+X**2 ) ) 



216 

IF ( PRS. LT*0.0 ) GO TO 50 



217 

SOFWf 1) =0,0 



218 

SOFW ( 2 ) = WTEMP ( 1 ) #X**2+PRS 



219 

SOFW ( 3 ) =-WTEMP ( 1 j *X*Y 


C0MB0578 

‘ 220 

SOFW( 4) =0«0 



221 

RETURN 


COMB0580 

222 

' 50 CONTINUE 



223 

WRI TE ( 6.707) NTCyCL. WTEMP 



224 

7 O 7 FORMAT ( 28HONEGAT jVE PRESSURE IN TEMPSW/I8.4E23.7) 



, 225 

STOP 



226 

END 


C0MB058 1 

227 

SUBROUTINE GENPT ( IF. IL ) 



228 
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C********* COMPUTES ThE VALUE OF W(T+DElT.) AT REGULAR MESH POINTS COMB0724 

c ********* aNd aT BOUNDARY POINTS ********************************* c oM B 0725 
COMMON PROPT Y * GAmMA3 * GAMMA 1 » GAMMA * DELR * DELQ * PQ » PMAX » PR » E R » T AU » I MAXCOMB072 6 
i*jmax»t»dtdr*dtdo*dt»p*ao»roo»ncycmx»r 
DIMENSION PROPTY (32*108*4) 

COMMON/ LE/FJMAX ♦ i MAXMI *RAD< 32 ) > OVRLAY ( 1? >3*32 ) » OVRPRM (.16 »2 *32 ) 

DIMENSION FDRVBR (4) *GDRVBRU) »SAVEBR(4) 

I — I F 
M=IL 
JM1-1 


J=2 
JP1=3 
I M= I -1 
IP=I+1 

DO 4 K= 1 *4 COMB0766 

r K4=K+4 

1 FDRVBR ( K ) = ( OVRPRh ( K4* J* I P ) -OVRPRM ( K4*U » I ) +OVRPRM ( K4» JM1 * I P ) — 

10VRPRMC K4* JM1 » I ) ) 

K8=K+8 ' • 

2 GDRVBR ( K ) = ( OVRpRp < K8 » J * I P ) -OVRPRM ( K8 ♦ JM1 » I P ) +OVRPRM ( K8 ♦ J > I) - 
lOVRPRMt K8 » JM1 » I ) ) 

K12=K+12 

3 SAVEBR(K)=.25*(OVRPRM(K12.J»IP)+OVRPRM(Kl2* J » I ) +OVRPRM( K12 » JM1 » IP ) 

1+OVRPRM ( K12 * JM1 » I ) ) 

OVRKJI =0* 5*( OVRLAY (K8* J * IP J+OVRLAY ( K8 » J * IM) ) 

4 PROP YY ( I »M*K )=pR 0 PTY( I >M*K)+( (DTDR*( (OVRlAY ( K » J » IP )— OVRLAY ( K * J * IM) 

1 ) +FDRVBR ( K ) ) *• 25+DTDO* ( ( OVRLAY { K4 *JPl ♦ I ) -OVRLAY ( K4 ♦ JM1 ♦ I ) ) +GDRVBR 
2 ( K ) )*.25+DT*(OVRlfJl+SAVEBR(K) )f-.5)/RAD( I) I 

RETURN C0MB077 

END COMB0778 

SUBROUTINE SEEK < F » EOUT »NOUT , I ) 

DIMENSION EOUT ( 1 ) 

IF(EOUTCl)-E) 15,10*25 
10 1=1 S RETURN 

15 PRINT 20*E*EOUT( -] ) $ 1=0 $ RETURN 
20 FORMAT { 1 1H SEEK pRROR *2E20, 10 ) 

25 IT0P=1 $ IBOT=NOuT+l 
30 IF( IBOT-ITOP-1 ) 45*40*45 
40 1 = 1 TOP $ RETURN 

45 I = ISHIFT ( IBOT+lTfiP »—l ) $ IF ( EOUT ( I ) -E ) 50*55*60 
50 IBOT = I $ GO TO 3o 
55 1=1-1 $ RETURN 
60 I T OP= I $ GO TO 3o 
END 

SUBROUTINE CENTEd 

C********* COMPUTES ThE VALUE OF W(T+DELT) AT THE CENTER OF THE C0MB0683 
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c********* CYLINDER By SCALER and VECTOR AVERAGING *******»**********cOMB 0684 

common propty*ga w ma3»gammai , gamma »delr*delo» po»pmax»pr, er»tau» imaxcombo685 

1 » JMAX * T .DTDR.DTDn.DT »P » AO .ROO » NCYCMX »R 
DIMENSION PR0PTY{32*108»4) 

COMMON/LE/FJMAX»tMAXM 1 »RAD( 32) »OVRLAY Ll2 1 3» 32 )-»OVRPRM ( 16 » 2 »32 ) 
COMMON/CNTRE/CoSTH( 108 ) *S INTH ( 1 Os ) »THTA(108) 

COMMON/M I DDLE/VMfiG,VD I R 
COMMON/TLDR/TTLDp, 

common/edot/ekf 

COMMON/FRS/FRSAV(4,10b*3) 

DIMENSION FNUm(4) .GNUMU) »WXY ( 4 , 1 08 ,‘20 ♦ PXY.( 4 * 108 * 2 ) »GXY ( 4 * 108 , 2 ) , 

1X1108) »Y(108) 

• EQUIVALENCE ( WXY , FRSAV ( 433 ) ) » t FXY »CVRPRM ) » C’GXY .OVRLAY ) ♦ 

1 ( X »OVRLAY ( 865 } ) » ( Y.OVRLAYI973) ) 

DATA PI ,TWOP 1/3. 1415926 .6. 283 1852/ 

DR2=.5*DELR • ' : 

DO 10 J=1 » JMAX 
X(J)=DELR*COSTH( J) 

Y( J)=DELR*SINTH( j) 

WXY(l.J.l) =PROPT y ( 2 * J » 1 ) 

WXY ( 4 * J » 1 ) =PROPT Y ( 2 ,U »4 ) 

WXY ( 2 * J * 1 ) =PROPTy < 2 *U *2 ) *COSTH ( J ) -PROP TY ( 2 ♦ J » 3 ) *S INTH ( J ) 

WXY ( 3 * J » 1 ) =PROpT y t 2 » J »2 ) *SI NTH ( J ) +PROPTY ( 2* J *3 ) *COSTH ( J ) 

WXY{1*J*2) = FRSAV ( 1 » J * 1 ) . • 

WXY ( 4 ♦ J * 2') =FRSA'V {*4 * J » 1 ) 

WX Y ( 2 * J » 2 ) =FRSAV (.2-, J »1 ) *COSTH < J ) -FRSAV ( 3 * J * 1 ) *5 1 NTH ( J ) 

WXY < 3 » J , 2 ) =FRSAV ( 2 , J » 1 > *S INTH ( J ) +FRSAV ( 3 » J * 1 ) *C0STH ( J ) 

DO 20 K=l,4 

PROPTY ( 2 » J * K ) =FR$AV (K * J » 1 ) 

20 CONTINUE 
DO 25 1=1,2 

CALL TEMPFW(WXY(t » j. I ) »FXY(i,J,I) ,1,J»D 

CALL TEMPGW(WXY(t , j,I) ,GXY(1,J,I) ) 

DO 25 K=1 » 4 

25 FXY ( K » J » I )=FXY ( K, J • I )/DR2 
10 CONTINUE 
DO 35 K=1 ,4 
DO 30 J=1 » JMAX 

FXY ( K » J * 1 ) =0 ,5* ( pXY ( K» J » 1 ) +FXY ( K » J. 2 )-) 

GXY (K»J,1) =0.5*( n XY(K»J»l)+GXY(K, J»2)J 
30 CONTINUE 
FNUM UC) =0. 

GNUM ( K ) =0* 

35 CONTINUE 
DENOM=0. 

DO 40 J= 1 , JMAX 
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JP1=J+1 

IFU.EQ. JMAX) JP1.1 
YDIF=>Y( JP1)-Y( J) 

DENOM= ( X ( JP 1 ) +X ( J ) ) *YD I F+DENOM 1 ' 

XDIF=X( JP1 )-X( J) 

DO 50 K=l»4 

FNUM(K)*FNUM(K) + CFXY(K 1 *J.1)+FXY<K*JP1*1))*YPIF 
50 GNUMU}=GNUM(IO + (GXYltC»J»l>+GXYlK* JP 1 * 1 ) )*XDIF 
40 CONTINUE 
DO 55 K=1 *4 
FNUMI K } =FNUM ( K } /pENOM 
GNUM ( K ) =GNUM ( K ) /oENOM 

PROPTY < 1 * 1 » K ) =PRnPTY ( 1 ♦ 1 ♦ K ) +DT* ( FNUM ( K } -teNUM ( K) 1 
55 CONTINUE 

IF ( ABS{ PROPTY ( 1 * ] » 2 ) > .LE.l . OE-14 ) PROPTY ( 1 , 1 *2 ) =0. 0 
IFCABS! PROPTY! 1*1*3) > .LE.l* OE-14) PROPTY ( 1 , 1 » 3 ) =0*0’ 

OA=VDIR 

VMAG=SQRT < PROPTY {1,1*2) **2+PROPTY < 1 * 1 * 3 >**2 ) /PROPTY C 1 *1 * 1 ) 

IF(VMAG.NE.O.O) yOIR=ATAN2 ( PROPTY < 1 * 1 » 3 ) »PROPTY < 1 t 1* 2 ) > 

QA=ABS! VDIR-QA) 

IF(QA.GT.PI) 0A=TW0PI-QA 

ttldr=ttldr+qa 

RETURN COMB0720 

END C0MB0721 

SUBROUTINE CHARGE 

c********* computes boundary conditions , at the periphery 

0********* OF THE CYLINDRICAL SURFACE ***HH******#**************, *****COM0Q918 

COMMON PROPTY » GAmMA 3 ♦ GAMMA 1 »G AMMA * DELR * DELO ♦ PO t PMAX * PR » ER * T AU * IMAX 
1 »jmax.t»dtdr»dtdo»dt*p»ao.roo»ncycmx.r 
DIMENSION PROPTY{32.108»4) 

COMMON/LE/FJMAX* IMAXM1 »RAD < 32 > *OVRLAY( 12*3*32 ) »OVRPRM ( 16 * 2 » 32 ) 

IMAXM2=IMAX-2 

RINT=RAD(IMAX-2) 

REXT=RAD(IMAX) 

RQU0T=RINT/REXT 
DO 10 J=1 » JMAX 

PROPTY ( IMAX » J* 1 } = PROPTY ( IMAXM2 >J»l)*RQUOT 

PROPTY ( IMAX, J* 2) =-PROPTY! IMAX » J *1 )*( PROPTY C IMAXM2 » J »2 ) /PROPTY ( IMAX 
X M2 * J » 1 ) ) 

PROPTY ( I MAX » J* 3 ) =PROPTY ( IMAXM2 * J* 3 ) 

RUSQ= ( PROPTY I IMAXM2 ♦ J *2 ) **2 ) /PROPTY ( IMAXM2 » J * 1 ) 

RVSQ= ( PROPTY ! IMAXM2 » J *3 ) **2 ) /PROPTY ! IMAXM2 ♦ J* 1 ) 

PINT =GAMMA1* C PROpTY ( IMAXM2 » J *4 ) 5* ! RUSQ+RVSQ ) } 

PEXT=PlNT+2.*DELp/RlNT*RVSG 

PROPTY! IMAX* J. 4) -PEXT/GAMMA1+. 5* ( PROPTY ( IMAX ♦ J*2 ) **2+PROPTY< I MAX » 
*J»3)**2)/PROPTY( iMAX»J»l) 
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337 
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340 

341 
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343 
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347 
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10 CONTINUE • 
RETURN - 
END 


SUBROUTINE PRTOUt(rTM) 

c ********* prints A TfRSE VIEW OF THE FLOW FIELD ALONG THE C0M3142 1 

C ***Q***** Rays 0,Pi/ ? *Pi *3*Pl/2 **************W«^******^****gOM21422 

COMMON PROPT Y ♦ GAmMA 3 ♦ GAMM Al * GAMMA i DELR » DELO » PO » PMAX » PR » E R » TAU » I MAX COMB 142 3 
1 * JMAX » T.» DTDR * DTDo ♦ DELT » P » AO * ROO * NCYCMX »R 
DIMENSION PR0PTY(32»108.4) 

COMMON/NCPLOT/NTCYCL* ISTART ,RC*OC 
COMMON/MIDDLE/VMAG,VDIR 
COMMON/pRTOPT/ 1 NTPNT .XTO »DETR ( 5 ) * DTR 
COMMON/ TLDR/TTLDR 
DIMENSION DLPI5) ,DLPRC5) 

EQUIVALENCE (THTBiRtVDIR) 

76 LF=0 
L= 1 

ENREV=TTLDR/6. 2831852 
WR I TE ( 6 ♦ 606 ) T*NTCYCL»ENREV»DELT,RTM 
TDM=XTO*T+TAU 
DO 100 J = l,5 
I=IDETR( J) 

P1=GAMMA1*(PROPTy< 1*1 *4) -0.5* < PROPTY 
1+PROPTYI 1*1*3 )*PpOPTY( 1*1*3 n'/PROPTY 
P2=GAMMA1*( PROP'Ty 1 1 + 1 » 1 *4 1-0.5* (p.ROPTY ( 1+1*1 » 2 ) *PR0PTY ( 14-1*1*2) 

1+PROPTY ( 1+1 » 1 » 3 ) *PROPTY ! 1 + 1 * 1 » 3 ) ) /PROPTY ( 1 + 1 * 1 » 1 ) ) 

DLP ( J)=PDM*(P1+DTR(J)*<P2-P1) ) 

DLPR(J)=DLPIJ)/Po 
100 DLP (J)=DLP(J)-P0 

WR I TE ( 6 * 607 ) TDM, DETR »DLP .DLPR 

607 FORMAT! 1H010X5HTIME=F8.5»9H MILLISEC/19H DI-STANCE IN INCHES5E20. 7/ 

1 19H PRESS DIFF In PSI 5E20.7/19H PRESSURE RATIO 5E20.7) 

IF ( INTPNT.EQ.O) r-0 TO 1818 
J-l 
1 = 1 


;5) »-IDETR(5).*PDM 


C0MB1429 


tl. *1*2)*PR0PTY( I *1*2) 
[1*1*1)) 


WRITE<6*707) J»I ,VMAG*VDIR 

WRITE C 6 ♦ 707 ) ( ( J * J » (PROPTY! I »J»K) *K = 1*4) ♦ J= 1 » JMAX ) , I =1 » IMAX ) 

707 FORMAT! 1X»2I4»4E23, 7) 

18.18 CONTINUE 

WR I TE ( 6 *6062 ) COMB1431 

606 FORMAT! 12H1T0TAL TlME=El 2 . 5 »3X . 17HNUMBER OF CYCLES* 1 4 *3X » 15HNUMBER 


1 OF REVS=F5*2*3X,10HTIME STEP=E12. 5 » 3X » 10HREAL T IME=F9.3/// ) 
,6165 FORMAT ( 8X * 5H RHO »14X*3H U *14X*3H V >19X»10HINT ENERGY » 8X ♦ 10H 
ISSURE- »10X»9H MACH NO.///) 

•6061 FORMAT! 1X*6E19. 5) 

6062 FORMAT! 1HO*20X.3?HSOLUTION ALONG THE RAY THETA = 0///) 


PREC0MB1434 

C0MB1435 

C0MB1479 

C0MB1436 
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6063 

FORMAT(1HO,20X»3*HSOLUTION along the ray theta x 

PI///) 

C0MB143 

413 

60 64 

FORMAT ( 1H0 »20X »3*>HS0LUTI0N ALONG THE RAY THETA * 

PI/2///) 

COMB 143 8 

414 

6065 

FORMAT ( 1HO*20X*37H$OLUTION ALONG THE RAY THETA = 

3*Pl/2///) 

COMB1439 

415 

402 

CONTINUE 



416 


WRITE(6»61651 


COMB1432 

417 


DO 1012 I=*l ♦ IMAX 



418 


IF(L.NE.l.AND.I.FQ.l’ go TO' 1013 


C0MB1441 

419 


RHOX=PROPTY( I»L*1) 


COMB 1442 

420 


UX=PR0PTY<I*L»2)/RH0X . 


COMB 144 3 

421 


VX=PROPTY( I »L*3)/RH0X 


C0MB1444 

422 


EX= ( PROPTY ( I »L#4)/RH0X)-0,5*<UX**2+VX**21. 


C0MB1445 

423 


PX=GAMMA1*RH0X*EX 


C0MB1446 

424 


XMXsSORT ( (UX**2+VX**2)/(GAMMA*PX/RH0X) ) 


COMB 144 

425 


IF( L.EO.l.AND. I.FQ.l ) GO TO 1014 ' 


COMB 144 8 

426 


GO TO 1011 


COMB 1449 

427 

1014 

TMPRO=RHOX 


C0MB1450 

428 


TMPEX=EX 


COMB1458 

429 


TMPPXxPX 


COMB1459 

430 


TMPXMX=XMX 


COMB 1460 

431 

1013 

CONTINUE 



432 


XT = L— 1 



433 


THETSR=XT*DELO 



434 


DIFFT=THTBAR-THETSR 


COMB 145 5 

435 


THPUX=VMAG*C05{DtFFT) 



436 


IMP VX=VMAG*S I N ( D I-FFT } 



437 


WR ITE< 6 »6061 ) TMPpO»TMPUX ,TMPVX ,TMPEX .TMPPX »TMPXMX 



438 


GO TO 1012 


C0MB1464 

439 

1011 

WRITE<6»6061) RHOX»UX»VX»EX,»PJ(»XMX 


C0MB1465 

440 

1012 

CONTINUE 


COMB1466 

441 


LF=LF+1 



442 


GO TO(404*504»40^ *1001 ) »LF 



443 

404 

CONTINUE 



444 


L= JMAX/2+1 


C0MB1469 

445 


WRITE ( 6*6063 ) 


C0MB1470 

446 


GO TO 402 


COMB 1472 

447 

5 04 

CONTINUE 



448 


L= JMAX/ 4+1 


C0MB1475 

449 


WRI TE { 6*6064 } 


COMB 1476 

450 


GO TO 402 


COMB 147 8 

451 

403 

CONTINUE 



452 


L=3*( JMAX/4J+1 


COMB 148 2 

' 453 


WR ITE ( 6*6065 ) 



454 


GO TO 402 



455 

1001 

continue 


C0MB1499 

456 


RETURN 


COMB1500 

457 


END 


COMB 1501 

.458 
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PROGRAM PRV<INPUt*OUTPUT»PUNCH) 

DIMENSION Y(3),F(3)»Q(3> 

COMMON/COMPR V/GAmMA .DELTA 

EXTERNAL FPRV 

GAMMA = 1 * 2 

RD='0. 75 1666667 

PR1-113* 5*144. 0*^2. 17 

RH01=0 , 53 

GAMMA1=GAMMA-1 .0 

GAMMAP=GAMMA+1.0 

RZ=0.2*RD 

K=3 


P2P 1=15.0 
5 CONTINUE 
, PR2=P2P1*PR1 

SQ= ( GAMMAP*PR2+GAMMA1*PR1 ) /{ 2.0*RH01 ) 
S=SQRT ( SQ) 

TZ=RZ/S*1000,0 

DELTA=S 

DMP=l,0/( 32. 17*144.0) 

AS=GAMMA*PRl/RHOl 

Q1=AS/SQ 

V-2 . 0*S/GAMMAP* f j .0— Q1 ) 

P=PR2 


R=GAMMAP*RHOl/(G4MMAl*tl.0+2.0*Ql/GAMMAl)) 


DX=0.001 
10. CONTINUE 
N=0 

Yfl)=P 
Y(2I=R 
Y ( 3 ) =V 
X=RZ 


H=— DX*X 
XMIN=— 5 • 0*H 

n! ?1 n T rt l00 * RD * RZ,DX,PR1,RH 01‘ S Q* s »AS»TZ 
PL — 0 • 0 

•PM=0 . 0 

PRINT 300 

20 CONTINUE 

CALL DEQ (X»H»3»Y,F*0»FPRV) 

N=N+1 

IF { MODI N»L) .NE. 1 ) GO To 30 
25 CONTINUE 

SMV=ABS f DELTA-Y C 7 ) ) 
A=SQRT(GAMMA*Y(1)/Y(2) ) 
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EM=SMV/A 505 

VA=Y t 3 ) /A 506 

YP=DMP*Y ( 1 ) 507 

PRINT 200*X»Y( 1) , Y ( 2 ) »Y { 3 ) * A *EM * VA 508 

PRINT 400tYP»F(li tF(2) *F(3) 509 

IFIPM.EQ.O.OJ 510 

.lPUNCH 500*X»YP*Y { 2 )*‘Y ( 3 ) 511 

IF(PL.EQ.l.O) GO TO 40 512 

30 CONTINUE 513 

IF(X.GT.XMIN) GO TO 20 514 

IF(PM.EQ.3.0) GO TO 35 515 

IF(PM.EQ.2.0) GO .TO 33 516 

IFf PM. EQ. 1.05 GO TO 32 517 

PM=1.0 518 

XMIN=0.02*XMIN 519 

H=0.05*H 520 

L = 10 521 

GO TO 20 522 

32 CONTINUE 523 

PM=2 • 0 524 

XMIN=0.01*XMIN 525 

H=0,01*H 526 

L=50’ 527 

GO TO 20 528 

33 CONTINUE 529 . 

PM=3 • 0 530 

XMIN=0.05*XMIN 531 

H=0.05*H 532 

L=2 533 

GO TO 20 534 

35 CONTINUE 535 

PL=1.0 536 

60 TO 25 537 

40' CONTINUE 538 

K=K-1 539 

IF(K.EQ.O) STOP 540 

IF(K.EQ.l) P2P1=3.85 541 

IF(K.EQ.2> P2Pl=ll.3 542 

CALL DEOSET 543 

, GO TO 5 544 

' RD=0.46 545 

PR 1 = 3 13 * 5*144.0*32. 17 546 

RH01= 1.464 547' 

100 FORMAT(#1RD»RZ,DX»PR1»RH01»SQ»S*AS*TZ*/(6E20.9) ) 548 

200 FORMAT ( 1H07E17.8 ) 549 

3.00 FORMAT ( 1H05X6HRAOIUS11X1HP16X1HR16X1HV16X1HA16X1HMI6X3HV/A) 550 
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400 FORMAT ( 1H 7E17.8) 

300 FORMAT ( 4E15 • 8 ) 

END 

SUBROUTINE FPRV(x»N*Y*F) 
DIMENSION Y ( 3 ) * F ( 3 } 
COMMON/COMPRV/GAmMA»DELTA 
QLAM=X 
P=Y ( 1 ) 

R=Y<2 ) 

V=Y ( 3 ) 

Z=GAMMA*P/R 

AV=V/QLAM 

BV=V+DELTA 

CV=BV*BV-Z 

pp=-GAMMA*AV*BV/rV 

RR=PP/GAMMA 

Fill =P*PP 

F(2)=R*RR 

F(3)=-AV-BV*RR 

RETURN 

END 
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APPENDIX D 


10 


CQMPLT (INPUT, OUTPUT, TAPE4.TAPE98, TAPES* I NPUT,TAPE6=0UTPUT) 
LOMMON/CMPLT/PROPTY(12,36,4),RAD(12) , TNTA ( 36 ) , SI NTH C $6 ) ,COSTH<36) , 
UMAX, IMAXM1, JMAX,NTCYCL,GAMMA,GAMMA1,T, TTLDR , VMAG, VD I R, LABLX < 5 ) ,GB 
DIMENSION PTCRDt 501, 2 ) 

REWIND 4 

READ (4) RAiHl) ,RAD<2) , RAO (3 ) , RAD < 4 ) 

RAD(1)=10H109904 

RAD(5)=0 . 0 

CALL PLOTS I 999, RAD ) 

CALL PLOT (8,5, 0,0, -3) 

CONTINUE 


Read ( 4 ) z, t.nTcYcl, ao,r, jp 

IF(EOF, 4)30,20 
20 CONTINUE 

WRITE(6,100) Z,T,AO>R, JP.NTCYCL 
IF(Z)30,40,30 
30 CONTINUE 

RE AD < 4 ) (PTCRD( 1 ,1) ,PTCRO{ I ,2) , 1=1, JP) 

CALL PTPLT ( PTCRD ( 1 » 1 > # PTCRD ( 1, 2 ) » JP) 

GO To 10 
40 CONTINUE 

READ ( 4 ) VMAG, VDIR # TTLDR, GAMMA, PO,ROO, I MAX, JMAX, NPRPLT, 
1 < { C PROPTY ( I , J, K ) , K = 1 » 4 ) , J = i , JMAX ) , I si, I MAX) 

WRITE (6,200) GAMMA, PO,ROO,NPRPLT, IMAX, JMAX 
IMAXM1=IMAX-1 
F JMAX= JMAX 


GAMMA1 = GAMMA-1 . 0 
GD=GAMMA1*GAMMA*P0 
DELR = 1. 0/FLOAT( IMAX-2) 

DEL0=6.28318531/FJmAX 
RAD ( 1 ) =0 . 0 
DO 50 1=2, IMAX 
50 RADI I )=RADC I-D+DELR 
DO 60 J=1 , JMAX 
THsJ-1 
TH=TH*DELO 
THT A ( J ) sTH 
COSTH(J) sCOS(TH) 

60 5INTHC J)sSIN(TH) 

CALL CALPLT 

IF(NPRPLT.EQ.Q) CALL PRPLT(JP) 

GO TO 10 
80 CONTINUE 

CALL PLOT < 0 ,0,0 , 0,999 ) 

STOP 

10 0 FORMAT ( *0Z, T, AO, R, JP, NTCYCL*4£20 .8, 2110 ) 

20 0 FORMAT < *0 GAMMA, PO, ROO , NPRPLT. IMAX, JMAX *3 Eg 0.8, 3110) 

END 

SUBROUTINE CaLPLT 

C0MM0N/CMPLT/PR0PTY(12,36,4),RAD(12),THTA(36),SINTH(36)»C0STH<36)» 
1 IMAX, IMAXM1, JMAX,NTCYCL, GAMMA, GAMMA1, T, TTLDR, VMAG, VD I R, IABLX ( 5 ) , GD 
DIMENSION AA(12,36),CLEVELS(20),LABLY<3) , HT ( 36 ) , XX (361 ) , YY ( 361 ) , 
1UVC361),THT(361) 

EQUIVALENCES, THTA) 

EXTERNAL FX,FY 

DATA PI ,TWOP 1/3,14159265, 6.23318531/ 
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DATA RMAX,XY0R,DELXP,XYS/1. 0,-1,125, .25,9,/ 

enrev=ttldr/twopi 

ENCODE <39, 10 0*UABLX)T,NTCYCL,ENREV 
10Q F0RMAT<2HT=F7,4, 19, 7H CYCLESF9 . 2, 5H REVS) 

LABLY(1)=9HNUMERICAL 
LABLY(2)=8HS0LUTI0N 
LABLY(3)=0 
LA8LX(5)=0 
Q = 1 . 

IMAXM2= IMAXM1-1 
85 CONTINUE 

DO 135 J=1,JMAX 
AA(1, J)=PROPTY(l,l.l> 

135 CONTINUE 

DO 140 I =2*» I MA'XMl 
DO 140 J = 1 * JMAX 
A A ( I, JJsPROPTYCI, J,i> 

140 CONTINUE 

CALL CONTOUR < A A, 12. IMAXM1’, JM AX»I MAXM1, JMAX, 0 .* TWO? I.»'0 » 0 0 » RMAX , 6 . , 
*6.,-20,CLEVELS»llHPLOT OF RHO, LABLX, LABLY ,FX,FY,Q) 

DO 145 J=1 . UMAX 

AA(1 , J)sGAMMAl*<PR0PTY(l,l»4)-.5*(PR0PTY(l.l',2)*'*2+PR0PTY(l.i,3> 
***2)/PR0PTY(l,l,l) )*GAMMA ••••■. ■ 

145 CONTINUE 

DO 150 1=2, IMAXM1 
DO 150 J=l, JMAX 

'A A C I , U)sGAMHAl*< PROPTYU , J, 4> - ,5*(PR0PTY< I , J. 2)**2 + PR0PTY ( I , J, 3) 
***2)/PR0PTY(I,J,l))*GAMMA 
150 CONTINUE 

CALL CONTOUR (A A, 12, IMAXM1, JMAX, I MAXH1 , JMAX , 0 . , TWOP 1 , 0 . 0 0 , RMAX ,6. , 
*6. ,-20,ClEVELS,16HPLOT OF PRESSURE, LABLX, LABLY ,FX,FY,Q)' 

KK = 1 

YY ( KK ) =0 . 

XX ( KK ) = 0 . 

UV(KK)=VMAG 
THT(KK)=VDIR 
DO 91 1=2, I MAXMl 
DO 91 J=1 , JMAX 

KKj=_KK + l _ __ 

■UVCKK)5SGRT(PROPTYU, J,2)‘**2*PR0PTY< I# J,'3:)**2)/PR0PTY(1# Jti) 

YY(KK) =SINTH< J)*RAD<I ) 

XX<KK)=COSTH< J)*RADU') 

ATAKANG = 0'. 0 

I F ( UV ( KK ) .EQ.O'.O) GO TO 601 - 
60 2 ATAKANG = ATAN2<PROPTY(,I , J , 3) , PROPTY < I, J,2-)) 

601 THT<KK)=HT( J)+ATAKANG 
91 CONTINUE 

CALL PLOTC2, , .58,-3) 

EMXY=0 . 

KKK=IMAXM2*JMAX 
DC 160 1=1, KKK 
IF(UV( I )-EMXY)l60,l60,i55 
155 EMXYrJVU) 

160 CONTINUE 

IF(EMXY.FQ.O.O-) RETURN 

CALL VECTORF(XX,YY,UV,THT,KK.XYOR,DELXP,XYOR,DELXP,EMXY, .5.XYS.XYS 


205 



ooooonomooooooo 


1,19HVECT0R PLOT OF UMAG, tABLX, UB(,Y> 

CALL PL0K12. ,-11. ,-3> - 

603 CONTINUE 
. RETURN 
END 

FUNCTION FX(X) 

Fysx 

RETURN 

END 

FUNCTION F Y ( Y ) 

FY = Y 

RETURN 

END 

SUBROUTINE prpltc in 

CGMM0N/CMPLT/PR0PTY<12,36,4),RAD(i2) , THTA ( 36 ) , S I NTH ( 36 ) , COSTH ( 36 ) , 
UMAX, IMAXMi, UMAX #.NTCYCL» GAMMA', QAMMAi»T#TTLDRfVMAG#VDIRfLABLX(S)«0C 
. DIMENSION X C 36 J 
I = I I 

DO 18 J = 1 , UMAX 

X( J)=(PROPTY( I , J,4.)-0,B*.(PROPTYU, J,2).**2+PR0PTY< I, J,3>*+2)/ 
IPROPTYI i,j,l) >*GD ‘ . 

18 CONTINUE 

, CALL PLOT (0,50,0,0-, -3).- 

M=INKPLOT<THTA,X, JMAX,LA9LX , 8HPRESSURE ). 

CALL PLOTd, 50,0. 0,“3) 

RETURN 

end 

SUBROUTINE PTPLT(X,Y-,N) 

DIMENSION X ( 1 ) , Y ( j, ) 

DO 10 1=1, N 
YY=Y( I ) 

XX=X( I ) *COS ( Y Y ) 

Y Y = X { I ) *S I N( YY ) 

X ( I ) =XX 
YU)=YY 
10 CONTINUE 

M=INKPL0T(X,Y,N,1HX»1HY) 

CALL PLOT(2, 0,0, 0,-3) 

RETURN 
• END- 

FUNCTION TNKPLOT (X, Y,N', XL-ABEL,YLAB,EL ) 

IABS( INKPLOT) IS THE NUMBER OF GRAPHS (I.E. SETS OF AXES) WHICH 
MAY STILL BE PLOTTED. WHEN A NON-POSITIVE VALUE IS RETURNED, NO 
PLOTTING TAKES PLACE, AND A NEGATIVE VALUE INDICATES SOME' ERROR IN 
CALLING THIS ROUTINE (THE NATURE OF THE ERROR IS INDICATED ON THE 
PRINTED OUTPUT), . 

X AND Y ARE THE ARRAYS TO 8E PLOTTED. 

XLABEL AND YLABEL ARE THE TEXT TO BE PRINTED UNDER THE AXES, THEY 
MUST BE IN HOLERITH FORM. 

IF N IS NON-ZERO, ITS ABSOLUTE VALUE IS THE NUMBER OF POINTS IN 
EACH ARRAY. IF NEGATIVE, EACH DATA ‘POINT WILL BE MARKED WITH AN 
-X- IN ADDITION T Q ■ THE LINE PLOT THAT IS ALWAYS DRAWN (IF TOO MANY 
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c 
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c 
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55 


c 

100 


■X-S WOULD OVERLAP, THEY WILL NOT 


ac T nD*n^ TS EXIST ' SO THAT SUCH 

be IJ R A WM ) , 

nr IS F ? R MULTlPLP PLOTS ON THE SAME SET OF AXES (’-MAXIMUM 

OF TWENTY), ALL PARAMETERS WI<UL HAVE THE VALUES OF -THE L-AST 

CALL WITH NON-ZERO N AND THE MAX, AND MIN, VALUES OF BOTH ARRAYS 
IN A C'ALL WITH N«0 MUST BE WITHIN PLOTTING RaNQE OF THESE PREVIOUS 
SCALE FACTORS, 


DIMENSION X(1),Y(1)*XLABEL<1),YLABEL(1)' 

COMMON /CALCOMP/ NPX, NPY, STEPS#NXLIM ; ' 

DATA WIDTH, PAPER, NPLOTS,MAXGRPH/ll ,5,0 .0,0, ,50/ 
Data NTIMES, NGRAPHS, MAVPloT y 0 , o , 20 / 

DATA XD,YO/1.0,0,/ 

DATA LX, LY/10 . ,.10 t / 

data size / o.i4 / 

DATA TIMZERO/1/ 

REAL lx,ly 

INTEGER USERLIM, TJMZERO 


DX(T) = (T - XMIN) / SFX 
D Y ( T ) = (T - YMIN) / SFY 


USERLiM IS IS THE PAPER LIMIT SET BY .THE USER., SEE CODING OF 
PLOTS AND PLOT FOR THE DEFI N I T I ON ' OF NXLIM IN TERMS OF USERLIM. 
WIDTH IS THE WIDTH OF THF PAPER ON WHICH THE''PLOT WILL BE PLACED. 
XO AND YO ARE THE COORDINATES OF THE ORIGIN OF THE' PLOT RELATIVE 
TO THE LOWER LEFT CORNER OF THE PLOT PAGE. 

PAPER IS INCHES OF PAPER ALREADY USED 

NTIMES IS THE NUM8FR OF TIMES THIS ROUTINE HAS BEEN CALLED. 


NTIMES = NTIMES + 1 
INKPLOT = 0 

IF ( N .EQ. 0 ) GO TO 1900 

NPOINTS = IABS(N) ' 

CHECK NUMBER OF POINTS IN ARRAY. 

IF ( NPOINTS ,LE, 1 ) GO TO 60.00 

IF { NTIMES .GT, TIMZERO ) GO TO 100 

USERLIM = NXLIM/100 - 2 - 

LIMIT = MINOC USERLIM , IFIX( 0..5 + WIDTH*FLQAT-(MAXGRPH> >-> . . 

IF < LIMIT , EQ , USERLIM ) MAXGRPH * I F I X ( FLO A-T < USERL I M ) /W IDTH ) 

DRAW LEFT CUT LINE 
CALL PLOT(0,,-11.0,-3)- 
Z = 0. 

IC = 3 

DO 55 J=1 , 55 
2 = 1 * 0.2 
IC = 5 - IC 
CALL PLOTCO, ,2, IC) 

KIND = 0 

IF ( N.LT.O .AND. NPO I NTS , LT . 1 0 1 ) . KIND = 1 
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PAPER = PAPER * WIDTH 

IF ( PAPER ,GT, FLOAT (LIMIT) ) GO TO 5000 
NGRAPHS ■= NGRAPHS + 1 ’ ‘ 

C GET SCALE FACTORS, 

CALL SCALE(X,LX*NPOINTS,l,XMIN#SFX) 

CALL SCALE ( Yf LYi NPO I NTS»-1, YMINf Spy ) 
c 
c 

C ORIGIN IS NOW AT THE LEFT EDQE OF THE PLOT PAGE AND AT THE VERY 

C BOTTOM EDGE OF THE ’ PLOT PAPER ROLL, THIS EDGE IS 0.58 INCHES FROM 

C THE GRID ON THE PLOTTING PAPER ROLL. 

C MAKE SURE PEN IS WHERE IT SHOULD -BE ‘AND 'THEN REDEFINE ORIGIN 
CALL PLOT (.0, ,-H. 0,-3) 

CALL PLOTIX0 » Y0*0 , 58, -3 ) 

C 

C FIND OUT HOW LONG THE Y-LABEL IS. 

DO 300 JKsJ.,20 

IF ( YLA8EL ( JK+1 ) .EG, 0 ) GO TO 305 

300 CONTINUE 

305 NCHAR = M I NO < 10* JK , I F I x ( 7 , /6 . *L Y/S I ZE > ) 

C DRAW Y-AXIS 

CALL AXIS ( 0 , , 0 . , YLABEL, NCHAR, LY,.90 ,0 , YM I N , SF Y, 1 0 . 0 ) 

C , 

C 

C DRAW CURVE 

C IF X=0 APPEAR ON GRAPH , DRAW DOTTED LINE THROUGH IT 

IF CXMIN.GE. 0 . ) GO TO 340 
XVALUE=-XMIN/SFX 
1 F ( X VALUE , GE . LX ) GO TO 340 
CALL PLOT(.XVALUE,0. ,3) 

JSTORSLY/.2 
IC = 3 
7 = 0 . 

DO 320 J=l, JSTOP . 

I C = 5- 1 C 
Z = Z+ . 2 

320 CALL PLOTCXVALUE.Z, IC). 

340 CALL LINE(X,Y,NP0INTS,1,KIND,4,XMIN,SFX, YMIN.SFY) 

c 

c 


FIND OUT HOW LONG THE X-LAREL IS. 

DO 350 JK=1,2Q 

IF ( XL4BEL(JK+1) ,EQ, 0 ) GO TO 355 
CONTINUE 

NCHAR = MINIM 1Q*JK , IF I x <7 „/6 ,>LX/SI ZE) ) 

DRAW X-AXIS AT' THE BOTTOM OF THE GRID 

n X !nn-°-!o2’H 'XLABEL, -NCHAR, LX, 0.0,XMIN,SFX, 10.0) 

IF Y = 0 APPtARS ON GRAPH, DRAW DOTTED LINE THROUGH IT 

IF (YMIN.GE.O, > GO TO 400 

YVALU£=-YMIN/SFY 

IF(YVALUE.GE.LY) GO to 400 

CALL PlOT(0,,YVAlUE,3) 

JSTOP =LX/.2 

1 C = 3 

2 = 0 . 

DO 370 J=l, JSTOP 
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I C = 5- I C 
1 * 1*. 2 

37 0 CALL PLOT < 2 , V VALUE > I C > 

C 

C DRAW GRAPH NUMBER JUST ABOVE GRID ON PLOT 'PAGE 
C 

400 CALL PLOTUX-1.5, 9. 80. -3) 

CALL SYMBOLIC, .0,40.0, 14, lOHGRAPH NO . * , O'. O', 0-) PLT 

CALL NUMBEHCi. 20,0. 4.0, 0 . 14, FLO AT < NGRAPHS > , 0 . 0 # -1 ) PLT 

DRAW RIGHT CUT LINE. . p LT 

CALL PLOT{WIDTH*1.5-LX-X0,-ll,0,-3) 

Z s 0 . 

IC = 3 

DO 550 JK = 1 , 55 
IC = 5 - IC 
Z = Z + 0,20 
550 CALL PLOT ( 0 , , Z i IC*) 


ORIGIN IS AT LOWER LEFT CORNER OF NEW PAGE. MOVE PEN THERE.' 
CALL PLOT ( 0 , , 0 . , 3 } 


INKPLOT s MAXGRPH - NGRAPHS 
NPLOTS = 1 

SAVE FINAL VALUE PLOTTED SO T.HAT 
IT IF A MULTIPLE PLOT OCCURS. 
XSAVE = DX ( X ( NPO I NTS ) ) 

YSAVE = D Y < Y ( NPO I NTS ) ) 

RETURN 
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PLT 

A- PLOT NO, MAY' BE ADDED NEXT TO'"' " PLT - 

‘PLT 

PLT 

PLT 

PLT 


N = 0, CHECK FOR TOO MANY PLOTS OR NO PREVIOUS SCALE VALUES, 

1900 IF ( NTIMES .EQ, 1 > GO TO 4000 

IF ( NPLOTS .EQ, MAXPLOT ) GO TO 7Q00 

C. THERE IS TO' BE MULTIPLE PLOTTING. 

XMN = XU) 

XMX s X(l) 

YMN = Y ( 1 ) 

YMX = Y ( 1 ) 

DO 2000 Jsl.NPOlNTS 

IF (XMN .GT, XU) ) XMN a XCJ) 

IF ( XMX . L T , XU) ) XMX « X ( J ) 

IF ( YMN , GT . Y(J) ) yMN b YU) 

2000 IF ( YMX .LT, YU) ) yMX * YU) 

C CHECK IF THIS RANGE OF VALUES' WILL PLOT- -ON . THE PAGE . 

IF ( XMN.LT.XMIN .OR, Y.MN.LJ.'YMIN .) . ' GO TO 3000 ' 

IF ( DX(XMX) . GT.LX .OR. 0YI.YHXV.8T.lY>' GO TO 3000 
C SINCE THE ORIGIN IS AT THE LOWER LEFT CORNER OF THE NEXT PLOTTING 

C PAGE, REDEFINE ORIGIN, 

CALL PLOT ( 0 , » -11 . 0 , -3 ) 

CALL PLOT(XO-WIDTH,YO+0. 58.-3) 

C NUMBER THE FIRST PLOT, 

IF (NPLOTS, EQ.l) CALL NUMBER < XSAVE+0 . 1 , YSAVE- . 05, , 1.0 . 0 , 0 . 0 , -1) 

C NUMBER THIS PLOT. 
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CAUL NUMBER < . 1 + DX ( X { NPO I NTS ) ) , pY < Y { NPO I NTS ) ) - . 0 5, , 1, FLOAT ( NPLCTS ) 

* t O i 0 j * 1 ) 

c UkM CURVE * 

CALL LINE(X,Y,NP0INTS,i,KlND,4*XMjN,SFX»YMIN,SFY) 

C HOVE ORIGIN TO LOWER CORNER 'OF NEXT PLOT PAGE. 

CALL PLQT(WIDTH-X0,-11.0,-3> 

NPLOTS = NPLQTS + l 
INKPLOT = MAXGRPH - NGRAPHS 
C 

RETURN 


• ERROR MESSAGES. 


PLT 
PLT 
PLT 
PLT 
PLT 
PLT 
Pi. T 
Pl.T 
PLT 
PLT 
PLT 
PLT 
Pl.T 
PLT 


0 0 0 ’ WRIT E-( 98,6002) 

WRITE (99.3001) NT I MES 

3001 FORMAT '(20X.*A MULTIPLE -PLOT WAS ATTEMPTED AT THEM6* -TH CALL OF 

★ INKPLOT, BUT AT LEAST ONE MAXIMUM DR MINIMUM OF THE GIV.EN*/ 15X, 

★ * VECTORS WAS NOT PL0TA8LE: ON THE SET OF AXES ALREADY DRAWN*) 
GO TO 90 C 0 


000 WRITE(98,6002) 

WRITE .(96,4002) 

T-IMZERO = TIMZERO * 1 „ 

4002 FORMAT (20X»*YQU CANNOT ASK FOR A MULTIPLE PLOT WITHOUT EVER* 

* * HAVING CALLED INKPLO-T ROUTINE BEFORE.* ) 

GO TO 9000. 

C 

5000 WR I TE ( 98, 60 02 ) 

WRITE ( 98,5001) NT I MES 

5001 FORMAT (20X,*AFTER* 16 „ 

* * SUCCESSFUL CALLS TO THE INKPLOT ROUTINE, YOU ATTEMPTED TO 
★EXCEED THE PAPER LIMIT.* /15X , ‘FURTHER CALLS TO INKPLOT WILL ONLY 

.★RETURN CONTROL TO THE CALL TNG PROGRAM* ) 

GO TO 9000 
C 

6000 WRITE (98,6002) 

WRITE (98,6003) NT I MES 

IF { NTIMES ,EQ. TIMZERO ) TIMZERO = TIMZERO * 1 

6002 FORMAT < IX , 13 < 5HERR0R, 5X ) ) ■ „ „ • _ 

6003 FORMAT ( 20 X f *THE NUMBER OF POINTS TO 8E PLOTTED WAS NOT GREATER T 
★HAN ONE AT THE* ,16, * -TH CALL OF THE INKPLOT ROUTINE* ) 

GO TO 9000 
C 

7000 WRITE (98,6002) 

WRITE < 98,70015 NT I MES , NGRAPHS, MAXPLOT 
7001 FORMAT (20X»*THE* 16 * -TH CALL OF INKPLOT ATTEMPTED TO MAKE TOO M 

* ANY MULT-IPLE PLOTS .ON THE* H * -TH SET OF AXES*// 

* 15X , *DO YOU REALLY WANT MORE THAN* 13 * PLOTS ON ONE SET OF AXES 

* (QUESTION MARK)* ) 

C 

9000 JPLT811 = NGRAPHS - MAXGRPH 
WR I TE ( 98 , 900 1 ) JPLT811 

9001 FORMAT ( 6QX, 9H I NKPLOT «sI6 ) 

WRITE(98,6Q02) 

INKPLOT = UPLT811 
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RETURN 

END 

SUBROUTINE VECTORF < X, Y , R , THETA* N » XO , DX, YO , DY , RREF , VREF, XS I ZE , 

1 YSIZE, ITITLE, LABELX.LABELY) ' 

C 

C VECTORF PRODUCES A VECTOR FIELD PLOT COMPLETE WITH AXES AND LABELS, 

C THE PLOTTER ORIGIN, (OR REFERENCE POINT) CORRESPONDS TO CX0,YO>. 

C ALL MOVEMENTS ARE RELATIVE TO THIS POINT. VECTORF ASSUMES THIS 
C ORIGIN TO HAVE BEEN PROPERLY SET BY THE PROGRAMMER BEFORE ENTRANCE 
C TO VECTORF. THIS IS DONE BY CALLING -PLOT- WITH A NEGATIVE THIRD 
C ARGUMENT. E.G, CALL PLOT (2 . , , 58, -3 ) 

C 

C X -- AN ARRAY CONTAINING UNSCALED ABSCISSA VALUES. 

C Y -- AN ARRAY CONTAINING UNSCALED ORDINATE VALUES. 

C R — AN ARRAY CONTAINING UNSCALED VALUES OF THE VECTOR MAGNITUDES. 

C I.E. RCI) IS THE MAGNITUDE OF THE VECTOR AT <X<I),Y(I>). 

C THETA --AN ARRAY CONTAINING VALUES- OF THE VECTOR DIRECTIONS, IN 
C RADIANS, WITH RESPECT TO THE POSITIVE X. DIRECTION, 

C I.E. THETA (I) IS THE DIRECTION OF THE VECTOR AT OND.Ytl)). 

C N -- THE NUMBER OF VECTORS To BE PLOTTED. X, Y, R, AND ‘-THETA MUST 
C BE DIMENSIONED AT LEAST 'N IN THE CALLING ROUTINE. 

C XO -- THE VALUE OF X AT THE REFERENCE POINT, THIS MAY BE ANY NUMBER 
C LESS THAN OR EQUAL TO THE SMALLEST VALUE IN THE ARRAY X. 

C XO IS THE VALUE AT THE LEFT END OF THE X-AXIS, 

C DX -- THE CHANGE IN X PER INCH ALONG THE X-AXIS. DX SHOULD 8E 
C CHOSEN SUCH THAT < XO+DX*XS I ZE > .GE. THE LARGEST VALUE IN 

C THE ARRAY X, XO, DX, AND XSIZE SHOULD BE CHOSEN TO PROVIDE 

c a convenient scale along the x-axis. 

C YO, DY -- ARE DEFINED FOR Y AND THE Y-AXIS AS XO, DX ARE FOR THE 

C X-AXIS. YO IS THE VALUE AT THE LOWER END OF THE Y-AXIS. 

C RREF -- THE VECTOR MAGNITUDE WHICH IS REPRESENTED ON THE PLOT BY A 
C VECTOR VREF INCHES LONG. 

C VREF -- THE LENGTH, IN INCHES, OF THE VECTOR WITH MAGNITUDE RREF. 

C RREF /VREF IS USED AS THE SCALE FACTOR FOR R, 

C XSIZE — THE LENGTH IN INCHES OF THE X-AXIS. MINIMUM IS 7 INCHES. 

C YSIZE -- THE LENGTH IN INCHES OF THE Y-AXIS, MAXIMUM IS 10 INCHES, 

C ITITLE -- AN ARRAY CONTAINING PACKED DISPLAY CODE, TERM I N ATED BY A 

C ZERO WORD, THIS TEXT IS WRITTEN ACROSS THE TOP OF THE PLOT, 

C A HOLLERITH LITERAL ARGUMENT SUCH AS 17HVECT OR FIELD PLOT, 

C WILL PRODUCE SUCH AN ARRAY. THE TEXT WILL BE CENTERED ALONG 

C THE LENGTH OF THE PLOT. 

C LABELX -- SAME AS ITITLE, BUT' WRITTEN ALONG THE X-AXIS. 

C LABELY -- SAME AS ITITLE, 8UT WRITTEN ALONG THE Y-AXIS. 

C 

C VMIN IS THE MINIMUM SIZE VECTOR THAT WILL BE PLOTTED. ALL VECTORS' 

C WHICH, AFTER SCALING, ARE .LT, VMIN INCHES LONG WILL BE DRAWN 

C VMIN INCHES LONG. THIS MINIMUM MAGNITUDE IS COMPUTED AND 

C STORED IN RMIN. 

C VREF, RREF, RMIN, AND VMIN ARE WRITTEN WITH APPROPRIATE TEXT DIRECTLY 
C UNDER THE TITLE QF THE PLOT. 

C IF THE VALUES X = Q, OR YaQ OCCUR ALONG THE X AND/OR Y AXES, DASHED 

C LINES WILL BE DRAWN TO INDICATE THEIR POSITION, 

C THE GRAPH SIZE, XSIZE*YSIZE, DOES NOT INCLUDE LABELS AND ANNOTATION. 

C AN ADDITIONAL SPACE OF ONE-HALF INCH SHOULD BE ALLOWED FOR 

C THIS PURPOSE BELOW THE X-AXIS, TO THE LEFT OF THE Y-AXIS-, AND 

C ABOVE THE graph. I.E. THE TOTAL SPACE REQUIRED IS XSIZE+.5 


PLT 

PLT 
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BY YSIZE+1. 

XO, YO. -XSIZE, A fvjD YSIZE SHOULD BE CHOSEN TO ALLOW FOR THE LENGTH 
OF THE PLOTTED VECTORS. I.E. IF THE MAXIMUM LENGTH OF THE 
PLOTTED VECTORS IS Z INCHES, THEN THE DISTANCE BETWEEN XO 
AND M ! N ( X ( I > > ALONG THE X-AXIS SHOULD BE . GE . 1, AND THE 
DISTANCE BETWEEN <X0+DX*XSIZE) AND MAXIXCU) SHOULD BE' 

.GE. Z. LIKEWISE FOR THE Y-AXIS. 

DIMENS-ION X(1)»Y(1)«R<1)*TH£TA(1)« I T I TLE < 1 ) » LA9ELX < 1 > , L ABEL Y < 1 3 
DIMENSION MSG{9),XX!5),YY(5.) ■ • . : 

DATA DIV/10,0/ 

DATA MAXcRS, VMINjXaRR* YARRjLESIGNXIOO, .06, -.03, .02.60558/ 

C ' 

C COUNT' -THE CHARACTERS IN LABEL*. DRAW X-AXIS WITH ANNOTATION BELOW. 
KGUNT = -NCHARSILABELX, MAXCRS) 

CALL AXIS(0,»O..LA8ELX. KGUNT. XSIZE.O;Q.XO,DX,DIV) 

c yaxis with annotation to the left* 

KOUNT=NCH ARS{ LABEL Y. MAXCRS) 

CALL AXIS(Oi.O..LABELY,KOUNT, YSIZE, 90. 0»Y0»DY,DIV) 

C WRITE- TITLE ABOVE GRAPH, CENTERED ALONG LENGTH OF GRAPH. 

■' CALL TITLE(Q., YSIZE*. 2, XSIZE.', 21. Q..ITITLE) 

C COMPUTE SCALE' FACTOR FOR VECTOR MAGNITUDES. 

DVDR= VREF /RREF 

C COMPUTE MAGNITUDE CORRESPONDING TO MINIMUM VECTOR SIZE. . 

RM I N=VM I N/DVDR 

C PREPARE MESSAGE ASOUT-VECTOR SIZES. ' LES I GN CONTAINS THE CODE 
C FOR A LESS-THAN-OR-EQUAL SIGN. FOLLOWED BY -THE CODE FOR A SPACE. 
ENCODE! 80, 20, MSG (1 ) ) VREF, RREF. LES IGN, RMI N , VM IN 
20 FQRMAT(*VECTQR *» F4 • 2 , * 'INCHES LONG = *,E9,2,*. VALUES *,R2,E9,2, 
1 * ARE*', F4 , 2 » * .INCHES LONG,*) 

C WRITE MESSAGE UNDER TITLE, CENTERED - ALONG LENGTH OF GRAPH.' 

MSG ( 9 ) = 0 

CALL TITLE(0., , YSIZE*. 05, XSIZE, .1,0., MSG) 

C COMPUTE LOCATION QF X = G ALONG X-AXIS, IF ’ X ** 0 - IS ON GRAPH, DRAW A 
C DASHED LINE T-0 INDICATE ITS POSITION, 

XZERO= -XO/DX 

IF! (XZERO.GE. ,01) .AND. ( XZERO . LE . ! XS I ZE- . 0 1 )-)' jCALL DASHL I N ! XZERO , 

1 0. , XZERO, YSIZE, ,08) 

C DO THE SAME FOR Y«sQ ALONG Y-AXIS. 

YZERO= -YO/DY 

IF! ( YZERO.GE, .01) , AND. (YZERO.L&.! YSIZE-,01) ) ) CALL DASHLINCO., 

1 YZERO,XSIZE, YZERO, ,08) 

C • 

C THIS IS THE ALGORITHM FOR PLOTTING THE VECTOR FIELD. 

DG100 I =1, N 

SINTH = SIN!THETA{ I ) > 

COSTH = COS(THETA( I >') 

C COMPUTE POSITION OF POINT ON PLOT, THIS WILL BE TA*IL OF VECTOR. 

XX<1) = (XU)-X0)/DX 
Y Y ! 1 ) = < Y ( I )-Y0)/DY 

C COMPUTE LENGTH' OF VECTOR ON PLOT,' SET TO VMIN IF .LT, VM'IN. 
RT=R(I)*DVDR 
IF!RT.LT. VMIN)RT?VMIN 

C COMPUTE POSITION OF HEAD OF VECTOR. THIS IS BOTH SECOND AND LAST 
C POINT USED IN DRAWING ARROW. 

XXC2)=-XX(l)+RT*COSTH- 
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XX(5)=XX(2) 

YYC2)=YY<1)*RT*SINTH 

YY(5-)aYY(2) 

C COMPUTE POSITION OF ARROWHEAD POINTS, THESE' ARE 3RD AND 4TH IN 
C DRAWING' SEQUENCE. 

YSTH= Y ARR*S I NTH 
XSTH = XARR*S I NTH 
XCTH=XARR*COSTH - ’ 

YCTH=YARR*COSTH 
XX(3)=XX(2>+XCTH-YSTH 
XX( A)=XX(2)*XCTH+YSTH 
YY(3)=YY(2)+YCTH + XSTH " ■ 

YY(4)=YY(2)-YCTH + XSTH . . . • a - . . 

C SET INDICES FOR DRAWING ARROW FROM TAIL TO HEAD'. 

Kb 0 . 

Lsl 

C GET CURRENT PEN POSITION, 

CALL WHEREIXNOW/YNOW, STEPS! 

• C DETERMINE WHETHER MOVING TO HEAD OR TAIL WILL TAKE FEWER PLOTTER 
C COMMANDS. -SINCE EACH COMMAND CAN CAUSE MOVEMENT IN X AND Y 

C DIRECTIONS SIMULTANEOUSLY, WE NEED TO KNOW THE MAXIMUM OF THE X AND 

C Y MOVEMENTS REQUIRED FOR EACH POINT, 

Dl=AMAXl(AES(XNOW-XX(l) ) , A8S( YNOW-YY(l) ) ) 

D2 = AMAX1< ABS.(XN0W-XX<2> ) , ABS C YNOW- YY < 2 ).) ,) 

I F ( D2 . GT . D1 > GO TO 200 . 

C If TAIL IS CLOSER DRAW ARROW FR0M“TAll TO HEAD. IF HEAD IS CLOSER, 

C CHANGE K AND L TO DRAW ARROW FROM HEAD TO TAIL. 

K = 6 
L= -1 

C LIFT PEN BEFORE MOVING TO ARROW. MOVE TO ARROW. THEN LOWER PEN AND 
C DRAW ARROW IN FOUR LINE SEGMENTS, IPEN=3 LIFTS THE PEN, 

C I PE N a 2 LOWERS THE PEN. 

200 I PEN=3 

DO 3000=1/5 
KsK + l 

CALL -PLOTIXXIKi.YYIK), IPEN) 

IPEN=2 

300 CONTINUE 
100 CONTINUE 
RETURN 
END 

SUBROUTINE CONTOUR ( Z, KD I M, 

1 K»N-,MM,NN,XA,XB, Ya. YB,XG, YG,NCL,CL> I T I TLE , L ABELX, L ABELY, FX, F Y , KP 5 
DATA TWOPI/6. 28318530717958/ 

CQMMON/POLARC/RS,RO,THS,THO 

COMMON/ INDICES/MROW,NCOL,MMROWiNNCOL • , kpol 

COMMON/XYBNDS /XM 1 N, XMAX , YM IN/ YMAX, XSIZE, YS I.ZE-/ 

1HX.HY/XS/XSS. YS/YSS.FXA/FYA 
COMMON/CLEVELS/NLVLS,NLV,CLEVEL(50) 

COMMON/CAVIN/IDIM,DUM(4035) 

DIMENSION Z(l) 

DIMENSION CU < i J 

C Z(I.J) IS THE ORDINATE AT POINT- MJ), Y ( I > 

C MXN IS THE SIZE OF THE CALCULATED X-Y GRID 

C MNXNN IS THE SIZE OF THE EXPANDEDCBY INTERPOLATION! X-Y GRID 

C X A i XB » Y A , YB ARE THE MINIMUM AND MAXIMUM VALUES 
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OF X AND Y, 

XG IS THE WIDTH QF THE GRAPH IN INCHES. 

YG IS THE HEIGHT OF THE GRAPH IN INCHES. 

NCL IS THE NO, OF CONTOUR LEVELS 
CL(i) ARE THE CONTOUR LEVELS 

ITITLE CONTAINS THE PLOT TITLES' IN 80 BCD CHARACTERS/ 
PLOT NAME IS FIRST 4 WORDS, 

X-AXIS LABEL IS NEXT 3 WORDS, 

Y-AXIS LABEL IS NEXT 3 WORDS, 

THE XU> ARE ASSUMED TO BE EQUALLY SPACED, AND 
LIKEWISE, THE Y C I > . 

FX IS THE FUNCTION TO BE PLOTTED ALONG THE X-AXIS, 

FY IS THE FUNCTION TO BE PLOTTED ALONG THE Y-AXIS, 

1 D I M = KD I M 
• MROW=M 

NCOLbN 

MMROWsMM 

NNCOL»NN 

KPQL=0 

IF (KP.NE.O)GO TO 50 
XM I N=X A 

XMAXsXB 

ymin=ya 

YMAXbYB 

GO TO 55 
50 XMIN=-YB 
XMAX=YB 
YMIN=XMIN 
YMAX=XMAX 
TH0=X A 
R0 = YA 

THS=(XB-XA)/FL0AT(NNC0L-1) 

RS=(YB-YA)/FLOAT (MMROW-1) 

KPOL=l 
55 CONTINUE 
XS I ZE=XG 

YS I ZE = YG 

NLVLS=XA8SF(NCL) 

CALLPLOT(0,-,5*(il.-YSIZE),3) 

IF { NCL ) 1 , 9, 9 
1 CLEVEL=HXsZ 

LsO 

D015 I =1 , NCOL 

D07 J=1 , MROW 

L S L*1 

I F ( Z ( L > ,LT.CLEVEL)4,5 

4 CLEVEL=Z(L) 

5 IF(Z(L) . GT , HX ) 6, 7 
b HX=Z(L) 

7 CONTINUE 
15 LsL-M+IDIM 

HX= (HX-CLEVEL )/ELOATF (NLVLS-l ) 

D08I=2,NLVLS 

8 CLEVELI I ) =CLEVEL ( I -1 ) +HX 

. GOTOll 

V D010 1=1, NLVLS 
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10 CLEVEL ( I )*CLU ) 

11 HX=<XMAX-XMIN)/FLOATF(NCOL-15 
HY=(YMAX-YMIN)/FL0ATF{MROW-l) 
XS=(XMAX-XMIN)/FLOATF(NNCOL-l> 

YS=( YMAX-YMIN)/FLOATF(MMROW-n 
FXAsFX(XHIN) 

FYA=FY(YMIN3 

XSS=XG/(FX(XMAX)-FXA) 

YSSsYG/CFYC YMAXJ.FYA) 

2 CALLINTERPIZ, I D I M > 

D03NLV s l»NLVLS 

3 CALL SCAN(Z,FX.FY‘> 

CALLLABEK IT ITLEi LABEL** LABELY»F-X*FY> 
IF ( KPOL . EQ , 0 3 GOTO 200- 
XCENT=XSIZE*,5 
YCENT=YSIZE*.5 
RZERQ=XCENT*RO/YB 
RMAX=XCENT 
THE-TA1 = XB 

IF ( THETAl , GT . TWQP I ) THETA1 = TW0P I AMOD < THET A1 , THOP I) 

I F ( RZERO . GT l . 1 ) CALL ARC ( XCSN.T* YCENT/RZERO, THO , THETAl, 1 ) 
CALL ARC(XCENT#YCENT,RMAX,TH0#THET.A1-/13- 
THH=TH0 ' ' 

Ks2 

IF (ABS( THETAl- (TWOPI+THO ) ) , LT , . 0 01 ) K = 1 
D0100 1=1, K 
S I NTH=S [ N ( THH ) 

COSTH=COS(THH) 

XO=XCENT+RZERO*COSTH 

YO=YCENT+RZERO*SINTH 

Xl=XCEHT+RMAX*COSTH 

yi=ycent+rmax*sinth 

CALL DASHLIN(X0, Y0,X1j Y l, .1) 

THHsTHET-Al 
IDO CONTINUE 

CALL DASHLIN<XCENT,YCENT,0.#YCENT;,25) ' 

CALL DASHL INI XCENT, YCENT, XCEN.T* YS I ZE* . 25 ). 

CALL DASHLINI XCENT* YCENT, XCEKiT# 0 . i .25) 

CALL DASHLINIXCENT, YCENT,X5IZE»YCENT, , 25 ) 

200 C ALLPLOT ( J NTF ( XS I ZE + 6 . ) , -11-, » -3 ) 

RETURN 

END 

SUBROUTINE LABEL ( I T I TLE, LABELX » L ABELY , FX, F Y) 
COMMON/TEMP/ZUOl) 

COMMON/XYBNDS/XA,XB. YA, YB.XSIZE, YSIZE* HX*HY* 
1XS,XSS*YS,YSS,FXA,FYA' 

COMMON/INDICESXM, N/ MM,NN,KPOL 
COMMONXCLEVELS/NCL-NLV,CL(50 ) 

DIMENSION ITITLE(i) /LABELX <1 > , IABELY < 1 > 

DATA I S/18/ 

J*0 

X = XA 

P=0 


D010 1=1, NN 


G=XSlZE-.9 

XG=XSS*<FXCX)-FXA> 


215 



IFCXG.GE,G)3,4 

3 X»XB 

XGsXSIZE . 

GOT05 

4 IF ( XG . GE , P ) 5 , 10 

5 J*J+1 

Z( J)=XG 

CALL SYMBOL ( XG > - . Q7 , .12,15.0.*-!) 

7 CALLNUMBER(XG-,14,-.22, .07,X,0*5HE10.3) 

8 I F ( X . EQ . X8 ) 11 « 9 

9 P*XG+ . 9 

10 X a X+ XS 

11 CALL TITLE(0.,“,4,XSIZE,.14, O.^LABELX) 

CALL TITLE(0.,YSIZE+.15,XS!ZE, .21,0., I TITLE) 

D012 1=1, J 

12 CALL SYMBOLCZC I > , YS I ZE* . 07, .12, I S, 180 . , -1 } 

J=0 

Y = YA 

P«Q 

G=YSlZE-.2 

00201=1, MM 

YG=YSS*<FY< Y)-FYA) 

IFCYG.GE.GU3, 14 

13 YsYB 

YG= YS I ZE 

GOT015 

14 IF(YG.GE.P)15,20 

15 J=J+1 

Z< J)=YG 

CALL SYMBOL(-,07,YG,.12,Is,270.,-l) 

C ALLNUMBER C - . 62, YG+ . 04, , 07, Y , 0 » 5HE'l 0 . 3 ) 

IF < Y . EG . YB ) 21 , 19 

19 PsYG+.9 

20 YaY+YS 

21 CALL TITLE(-.7,0.,YSIZE, . 14 , 90 . , LABEL Y 5 
00221=1, J 

22 CALL SYMBOL(XSlZE*.07,ZCl),.12,IS,90. f -l.) 
YI=,5*YSIZE+.1+FL0ATF(NCL) 

DY= . 2 

CALLNUMBER(XSIZE+.5,YI, . 14 , NPL » 0 , 2H 1 2 ) 

C ALLSYMBOL (XSIZE+, 80, YI, . 14 , 14HC0NT0UR LEVELS, 0,14) 
Y 1 3 Y I “DY 

23 D024J=1, NCL 

CALLSYM8OL(XSIZE+.8,YI*.05,0.10, Irl . ,0,-1) 

CALL NUMBER { XS I ZE+1 . 0 , Y1 , 0 , 1Q5, CL ( I) , 0 , 5HE15 . 5 ) 

24 Y I =Y I -DY 
RETURN 
END 

SUBROUTINE I NTERP ( AM , I D I M ) 

DIMENSION AM< IDIM,1> 

COMMON/TEMP/Z<101) 

C0MM0N/XY8NDS/XA,X8,YA, YB,XG,YG,HX,HY, 

1XS,XSS, YS, YSS,FXA,FYA 
COMMON/INDICES/M, N, MM, NN ,KP0L 
ZFUN(V)=A0*A1*V*A2*V**2 
N1=N-1 


216 



MlsM -1 

IF(N-NN)16il5,14 

16 D06 [ =1/ H 
D01J=1,N 

1 Z < J ) = Am ( I, J) 

XY«XA 

K = 1 

T»HX+XA 

DG3 J=2 » N1 

CALLFITC J,T,HX, A0,A1, A2) 
? AM ( I * K ) =ZFUN ( X Y ) 

XY=XY+XS 

K»K*1 

3 TsT+HX 

A IF ( K-NN ) 5 1 5# 6 

5 AMU,K)=ZFUN(XY> 

k=k+i 

XY»X Y*XS 

6 CONTINUE 

15 I F ( M-MM ) 17 » 13, 14 

17 D012I=1,NN 
DG7J=1,M 

7 Z C J) =AM ( J, I ) 


IF ( X Y-T ) 2 » 2 * 3 


GOT 04 


K = 1 

XYaYA 

T«HY*YA 

D09J=2,M1 

CALLFITC J,T,HY.AO, A1,A2) 
8 AM ( K j i)sZFUN(XY) 


xy=xy+ys 


K = K + 1 


9 T=T+HY 

10 I F < K-MM >11*11,12 

11 AM ( Ki I )=ZFUN(XY) 


IF(XY-T>8,8,9 


KsK+1 


X Y*X Y* YS 


GOTOIO 


12 CONTINUE 

13 RETURN 

14 ST0P12 
END 

SUBROUTINE SCAN < AM , FX, FY> 

C AM IS THE MATRIX TO BE CONTOURED. MT AND NT ARE ITS X AND 
C CL(NLV) IS THE CONTOUR LEVEL. * ' 

C THE N (X.Y) VALUES OF ONE CONTOUR LINE ARE PLOTTED WHEN 
C THEY ARE AVAILABLE, 

DIMENSION AM ( 1 ) 

common /clevels/ncl,nlv,cl(5o ) 

COMMON/INDICES/DUMI 2 ) , mt,nt,kpol 

COMMoN/C AV IN/DIM, IX,IY,IDX,IDY,ISS, 

1 NP.N.CV, IS, ISO, IXO, IYO.DCP, 

2 INXC8), INY(8) # REC(800),X(l603),Y{1603) 
type INTEGER REC , DIM 


DIMENSIONS. 
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D AT A { I NY = 0,1, 1,1, 0**1, -1,-1) 

DATA! I NX=-1, -1,0 0,-1) 

NP= I SS=0 
CV=CL(NUV) 

MT1=MT-1 

NTlsNT-1 
DO 110 1=1, MT1 
IF(AM(I> -CV)55,liO,llO 
55 I F { AM ( I +1 ) *CV ) 110 , 57, 57 
57 IXQ=1X=I+1 

I YO = I Y=IS0«IS«1 

IDX*"1 . 

IDY«0 

CALL TRACE(AM,FX,FY) 

110 CONTINUE 
J«MT-D I M 

DO20Isl,NTl 

J-J+DIM 

IF (AM(J)-CV)15,20,20 
15 IFCAM< JfDIM)-CV)2Q,l7,l7 
17 I XO = I X = MT 

IYObIYsI+1 

IDX = Q 

IDY=-1 

IS0»ISa7 

CALL TRACE(AM,FX,FY) 

20 CONTINUE 

J=MT+NT1*DIM+1 

DO30 I cl, MT1 

JsiJ.-i 

IF (AM(J)-CV)25,30,30 
25 IF(AM< J-1)-CV}30,27,27 
27 IXO=IX=MT-I 

I YO = I Y = NT 

!DX*1 

IDYsfl 

IS0«IS«5 

CALL TRACE ( AM, FX , FY ) 

30 CONTINUE 
J«NT*D I M + l 

1)0401=1, NT! 

JaJ-DJM 

IF <AM(J)-CV)35,40,40 
35 IF(AM(J-DIM)-CV)40, 37,37 
37 I XO = I X=1 

I YO*IY»NT-I 

I DX*0 

■ IDY=1 

I SO = I S=3 

CALL TRACE ( AM , FX , F Y ) 

40 CONTINUE 
ISS = 1 

L = 0 

D013 J=2, NTl 

L S L + D I M 

D010 1=1, MT1 
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L"L+1 

IFCAM(L)-CV)5, 10,10 
5 IF(AM(L+1)»CV)10,7V7 
7 K«L+1 

DO 9 ID = 1,NP 
1FCRECC ID)-K)9,1Q,9 
9 CONTINUE 
I XOs I Xs I +1 

I Y0t*I Y = J 

IDX«-1 

I DY=0 

IS0=!S*1 

CALL TRACE(AM,FX,FY) 

10 CONTINUE 
13 L*L-MT1 
RETURN 
END 

SUBROUTINE TRACE t AM. FX , FY) 

DIMENSION AM(l) 

COMMON/POLARC/RS,RO*TH9,THO 

COMMON /INDICES/DUMCZ) »MT*NT,KPOL 

cqmmon/xybnds/xa,xb»ya,yb,xsize, ysize,hx,hy, 

1XS»XSS, YS,YSS,FXA,FYA 
COMMON/C AVIN/D I M, IX, IY, IDX, IDV, ISS, 

1 NP,N,CV, IS, ISO# 1X0. IYO.DCP, 

2 INX(8), INY<8),REC<800 ),XU603),Y(1603) 
COMMQN/CLEVELS/NCL»NLV,CL{50 ) 

TYPE INTEGER REC.DIM 
N»0 

JY=DIM*( IY-D + IX 

my=dim*idy+idx+jy 

2 N»N+1 

I F ( N"16 00 ) 3 , 3 , 32 

3 I F { I D X > 5 , 4 » 6 

4 X(N)=FLOATF (IY-1)*FLOATF(IOY>*(AM(JY)-CV)/<AM( JY)-AM(OIM*IDY+JY)> 
Y(N)=FLOATFUX-l> 

G0T07 

5 NpsNP+1 

REC ( NP ) ■ JY 

6 Y(N)=FLOATF( IX-D+FLOATFC I DX > * ( AM ( JY ) -CV ) / ( AM { JY ) - AM ( JY+ I DX > ) 
X(N)=FLOATF(I Y-l) 

7 ISsIS+1 

8 IF( IS" 8)10, 10, 9 

9 I S = I S - 8 

10 I DX= I NX { I S ) 

I DYa I NY ( IS) 

IX2=IX+IDX 

I Y2* I Y+ I D Y 

IRa IDX*I DY 

11 I F< I SS ) 13, 15 

13 IFUS.NE. ISO.OH, IY.NE. IYO.OR, IX.NE. 1X0)16,14 

14 NbN+1 

X(N)bX 

Y ( N 5 b Y 

G0T073 

15 IFC 1X2)151,73,151 
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151 IF ( IY23152* 73,152 

152 1F< ( IX2.LE.HT) .AND. U Y2 , LE . NT 3 ) 16* 73 

16 MY=DIM*IDY*IDX+JY 

IF(IR)19* 17,20 

17 IF (CV-AM(MY) 318*18,2 

18 I X= I X2 

IYSIY2 

81 ISsIS+5 

JYaMY 

G0T08 

19 KY=JY+IDX 

LY»MY-IDX 

gotohi 

20 KY=MY-IDY 

LY*JY+IDY 

21 DCP=(AM(JY)+AM(KY)+AM(LY3+AM(MY3)*.25 


22 CALL GETPTC AM< JY) > 

GC TO 7 

23 IFCIR324, 25*25 

24 IX=IX2 

I DX=- I DX 

CALL GETPT ( AM ( KY 3 ) 

IY=IY2 

IDYs-IDY 

GOT026 

25 IY=IY2 

IDYs-IDY 
CALL GETPT<AM<I<Y3 ) 

IX* 1X2 

I DX=" I DX 

26 IF(CV-AMCMY) 381*81,28 

28 CALL GETPT ( AM < MY ) ) 

IF ( IR329. 30*30 

29 IX=IX + IDX 

IDXs-IDX 

G0T031 

30 IY=IY*IDY 

IDYa-IDY 

31 IF<CV-AM(LY) 333*33,34 

33 I S= I S-l 

jy«ly 

GOTOIO 

34 CALL GETPT ( AM < LY ) ) 

IF( IR335, 36,36 

35 IYbIY+IDY 

G0T07 

36 IXMX+IDX 

GOT07 

32 PR I NT103 , CV 

73 I F ( KPOL . EO , 0 3 GO TO 173 
DQ174I=1,N 
THETA = X( I )*THS+TH(3 
R = Y( 1 3 *RS + R0 

X( I )=XSS*(R*C0S(THETA)-FXA3 
YCI)sYSS*<R*SIN(THETAj-FYA) 


IF(CV-DCP323, 23,22 
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174 CONTINUE 
GO TO 175 

173 D074I*1, N 

XU >sXSS*<FX(X<I>*XS*XA>-FXA) 

74 YU >=YSS*<FY<Y<n*YS + YA)-FYA> 

175 CONTINUE 

CALLSYMBOL(X,Y, ,07,NLV-1 ' ,0,-1) 

DC75Isl.NI 


75 CALLPLOT (X< J),Y( I) , 2 ) 

RETURN 

103 FORMAT < 1H0 , 23HA CONTOUR LINE AT LEVEL, E13,5i 

1 4 1H WAS TERMINATED BECAUSE IT CONTAINED MORE, 

2 23H THAN 1600 PLOT POINTS.) 

END 

SUBROUTINE GETPT(AM) 

COMMON/CA.V IN/DIM, I X, I Y, IDX, IDY, ISS, 

1 NP,N,CV, IS, ISO, 1X0, iyo.dcp; 

2 - INX(8> , INY(8),REC('800),X(1603),’Y(1603) 

N«N + 1 - ' 

B= AM -DCP 


IF ( B ) 2, 1 

1 V«.5 

GOT03 

2 Va , 5* ( AM =CV)/B 

3 Y(N)sFLOATFUX-i)*FLOATF(IDX)*V 

X<N)»FLOATFUY-1)+FLOATF( IDY)*V 
RETURN - • • 

END 

SUBROUTINE FI T ( I , X , H, C,B, A ) 

COMMON/TEMP/2 (101) 

WsQ,5*CZ(I+l)-Z<I-l))/H 
A*0.5*(ZU*i) + Z(I-l)-Z(I)-ZU) )/H**2 ' 

C»Z ( I )+X*(X*A-W) 


BaW-2 ,*X*A 

RETURN 

END 

SUBROUTINE T I TLE ( X , Y, S I ZE, HE I GHT , ANGLE, I TEXT ) 

DIMENSION I TEXT ( 1) 

DATA SIX7,TW07/,857142857, .285714286/ 

CHSIZE=HEIOHT*SIX7 
MAXCHS=SIZE/CHSIZE 
NUMCHS=NCHARS( ITEXT.MAXCHS) 

START= .5*(SIZE-CHS I ZE*FL0AT(NUMCHS)+TW07*HEI GHT) 

THsANGLE*. 0174533 

CALL SYMBOUX*START*COS(TH), Y+START*SIN(T-H>, HEIGHT, I TEXT, ANGLE, 
1 NUMCHS) 

RETURN 

END 


FUNCTION NCHARS(ITEXT,MAXCHS) • 
DIMENSION I TEXT ( 1 ) 

maxwds=maxchs/io*i 

DQ1-5 =1 , MAXWDS 
KsITEXT( I ) .AND.7777B 
IF ( K . EQ . 0 ) GO TO 2 
1 CONTINUE 
IsMAXWDS 
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2 NUMCHS=10*I 
UG3 J=1 j 1 

L= i - J+l 
K7EST=UEXTU) 

DQ3M=1,10 
KsKTEST . AMD, 778 

IF( <K.N6 .0) , AND. (K.NE.558) 3GO- TO 4 
KTES1=ISHIFT(KTEST,54) 

NUMCHS=NUMCHS-1 

3 CONTINUE 

4 NUMCHS=MINO < NU^CHS, MAXCHS) 

NCHARS=NUMCHS 

RETURN 

END 

SUBROUTINE DASKL I N ( XO . YO , Xl j V.l . DASH ) 

C . ' ■ . . 

C DRAWS A DASHED LINE FROM <X0,Y0) TO(Xl,Yi>. THE DASHES AND SPACES 
C BETWEEN THEM ARE APPROXIMATELY OF. LENGTH -DASH-,,- THIS LENGTH IS 
C ADJUSTED SUCH THAT THE LINE IS COMPOSED OF EQUAL LENGTH DASHES, - 
C AND BEGINS AND ENDS WITH A DASH. 

C ALL PARAMETERS ARE IN FLOATING PO I NT ' I NCHES . 

C 

XNOW=XO 
Y.NOW = YO 
DX=X1-X0 
UY=Y1-Y0 

D=SGRT(DY*DY+DX*DX) 

NDASH = 2*( 1 FIX ( D/DASH )/2)+i 
dx=dx/floaT(ndash) 

Dy=DY/FLOAT(NDASH) 

CALL WHERECXN.YN, STEPS) 

D1 = AMAX1{ ABSCXN-XO ) » A8S( YN-YO),,) 

D2 = AMAX1(ABS(XN-X1), ABS(YN-Yl) ) 

IF(D2.GT.D1)GQ to 2 
XN0W=X1 
YN0W=Y1 
DX=-DX 
DY=-DY 
2 I PEN=3 

CALL PLOTtXNOW, YNOW. IPEN) 

DOl I =1 , ND ASH 
XNOW=XNOW+DX 
YNOW=YNOW+DY 
I PEN = 5- IPEN 

CALL PLO-T(XNOW,YNOW, IPEN) 

1 CONTINUE 
RETURN 
END 

SUBROUTINE ARC ( X 0 , YO , R , THO . TH1 , I D ASH ) 

C 

C DRAWS AN ARC OF RADIUS R ABOUT <X0,Y0) FROM THETAcTHO TO 
C THE TA = THl, THO.LT.THi, IF IDASH.EQ.Q, THE ARC WILL BE SOL.ID. 

C IF IDASH.NE.O, TRE ARC WILL BE DASHED. ■ 

C XO, YO, AND R ARE IN FLOATING POINT INCHES, 

C THO AND THi ARE IN RADIANS. 

C 
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DELTHs 2.*AS'IN< ,Q5/R> 
THETA sTHO 

X*XQ+R*COSCTHETA) 
Y*YO+R*SINCTHETA)' 
Xl=XO+R*COS(THi) 
y.i *y 0 + r R * S I N ("t hi > ■ 
IP6N=3 

1 CALL PLOT { X# Y* *PE’N } 
THETA = THE-TAfDELTH 

I PEN = 5- I PEN 

1 F ( I DASH . NE | 0 ) GO TO 2 

IPEN=2 

2 XaXO + R*COS< THETA), 

YbYO + RwSI.NCTHETA) 

ifUheta.lt.thDgo TO i 

CALL PLOT(Xl«Ylf IREN) 

RETURN 

END 
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appendix E 

PROGRAM TRDL (INPUT, OUTPUT, TAPE1.TAP62, TAPES, TAP.EM INPUT', 
lTAPE6«0UTPUT) 

COM 0001 

*.** + +.*********************************************★****. ** ************** 0 0 M B 0 0 0 2 
TIME DEPENDENT EQUATIONS OF HYDRCDYNAM I CS . _ COM+0003 

************************************************************ ******* ****CQM20004 
*************************************************** ********************OOMBO 005 
FINITE DIFFERENCE APPROXIMATION ... LAX WSNDROFP TWO STEP COMB0008 

BURSTEIN VARIATION ... \ COMB0009 

************************************ ’ COMBO 012 

INPUT PARAMETERS IN MAIN ROUTINE - COMB0013 

COMBO 014 

ISTART IF .EQ. Hill NEW CASE . COMB0015 

IF , EO . 00000 CONTINUATION OF PREVIOUS CALCULATION COM 0016 

IMAX MAX NUMBER OF MESH POINTS ON A RADIUS.. INCLUDING O.NE COMB0Q17 

POINT FOR THE BOUNDARY CONDITION ' COMB0018 

JMAX MAX NUMBER OF RAYS CQMB0019 

NCYCMX TOTAL NUMBER OF TIME STEPS FOR THP PRESENT COMB0020 

INTEGRATION COM80021 

NNPCMX NUMBER OF TIME INTEGRATIONS BETWEEN PICTURES COMB0022 

fudg safety factor for augmentation op linear comboo23 

STABILITY ANALYSIS COMBO 024 

INPUT PARAMETERS IN OTHER ROUTINES COMBO 025 

- COMBO 0 26 

GAMMA RATIO OF SPECIFIC HEATS COMB0027 

PO UNPERTURBED PRESSURE COMB0028 

PMAX AMPLITUDE OF PRESSURE FERTURBATTON COM20Q29 

TAU DURATION OF PRESSURE PERTURBATION COM80030 

rmax radius of cylinder comsoosi 

XM MOLECULAR WEIGHT OF GaS COM80032 

TO GAS STAGNATION TEMPERATURE COMB0D33 

***********************************************************************COM80Q34 

COMB0035 

SCALING RULES. ..SEE SUB. INITTL COMBQ036 

--- - COM80037 

***********************************************************************COMB0Q38 

in put tapes comboose 

COMBO 040 

BINARY TAPE 1 INPUT TAPE CONTAINING INFORMATION FOR THE COMB0Q41 

CONTINUATION OF THE CALCULATION COMB0042 

OUT PUT TAPES COMB0043 

COM80044 

BINARY TAPE 3 OUTPUT TAPE CONTAINS INFORMATION FOR THE COMB0047 

CONTINUATION OF COMPUTAT I AN COM20048 

********************************************************** *************CQMB0 049 
********************************************************************* COMBO 050 
***************************************************** COM2005 

************************************* COMBO 054 

************* COM90055 

COMBO 056 
COMBO 057 
COMB0058 

MAIN COMBO 059 

C********* EXECUTIVE PROGRAM WHICH CONTROLS I NPUT', OUTPUT AND COMBQQ60- 

C********* LOGICAL FLOW FOR THE COMPUTATION ************************COM80 061 
COMMON PR0PTY,GAMMA3, GAMMA1, GAMMA, DELR ,DELO,PO. PMAX, PR, ERjTAU, IMAX 
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li JMAX,T,DTDR,DTD0,DELT ,P.-AO,ROO -.ncycmx ' 

DIMENSION PROPT Y ( 21* 20., 4 ) 

COMMON/LE/ FJMAX, I MAXM1', X, Y . RAD ( 41 ) , OVRLA Y ( IB, 20 *. 21 ) , 
10VRPRMC16,2Q,21),HT<40> 

COMMON/PH JP/DR0P(5i 20, 21), PHI >6N.FS,,DMF,DMFT7lM,XM 

COHMON/NCPLOT/NTCYCL, I START, HGAM, LA0LX (5 ) , LABLY M ' 

COMMON/PRfOPT/INTPNT 

COMMON/FZA0/A,B,BB 

CAUL PLOTS < 2,1) 

CALL PLOT ( 0 ; , *11 . , -3 ) 

5 CONTINUE 
RA D( 41 ) =-i , 0 
R£AD(5,666)ISTART, ISAVE 
IF(ISTART.LT. 0) GO TO 186 
CALL" PLOT {'2 . , 0 . , -3 ) 

NCLCM*0 
NTCYCL»0 
NC YCLE*0 
NP I CTR= 0 
NSAVEbQ 
T*0 . 0 


READC5.668)LABLY(l),LABLY{2'), t LABLY(3) 

L ABL Y ( 4 ) =1H1 

WR J TE ( 6, 668 ) LABL Y C 4 ) ,:LABLY(1 )-.« LABLY ( 2 ) » IABL Y ( 3) 
LABLY(4)=0 ' ’ 

668 FORMAT ( 4A10 ) 

READ(5,666.)IMAX,JMAX 
F JMAX* UMAX 
1 MAXMi* I MAX-1 

RE ADCS, 666) NCYCMX, NNPCMX i KALKOM, INTPNT, IBSPLT, ISMTH 
666 FORMAT ( 9,15 ) 


6066 


667 


WR I TEC-6, 6 0 66 )NfcYCMX, NNPCMX 
FORMAT < 1 H 0 * 38H TOTAL NUMBER OF CYCLES FOR THIS CASE*I4,4X, 


2F CYCLES BETWEEN P ICTURES* 1 4///,) 
READ ( 5,667) FUDG', A 
FORMAT ( 7E10 . 7 ) ' 


34HNUMBER O 


C INITIALIZE MESH AND FIND DGLT.FOR CONVERfi. AND STABILITY 

CALL INITIL ’ 

CALL CONVRG(FUDG) 

DELZ2«0.5*DELR 
■ BB»3.333333333*A 
B«0.5*BB 


C 


C 


757 CONTINUE 

PRINT INITIAL FIELD 
CALL PRTOUTC NTCYCL ) 

CALL CALPLT , • ■ . 

80 NCYCLE*NCYCLE+i 
NTCYCLeNTCYCL+1 
T*T+DELT 

IF(EN.NE.O.O) CALL PHIDOTV 
CALL VECTRC1, IMAX) 

CALL QUADCl, IMAXM1) 

CALL TMPVCTC2, IMAX) 

COMPUTE W ( T + DELT ) AT INTERIOR POINTS 
CALL GENPTC2, iMAXMi) 
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C COMPLETE MESH CALC AT 1*1, J=1 

lF< ISMTH.NE.O) CALL SMOOTH 

call charge 

NCLCM»NCLCM+1 

npictr*npictr+i 

nsave«nsave+i 

C NOISE SUPPRESSOR 

DO 50 1*1, IMAX 
DO 50 J = 1 » JMAX 

C TEST POR NEGATIVE DENSITY 

IFCPROPTYI I , J,l) .LE.O. ) 60 TO 181 
DO 51 K = 2,S 

C ELIMINATE SPURIOUS VELOCITIES 

I F ( A8S (PROPTYU, J>K) ) .LE.l.E-14) PROP TY ( I » J» K ) «fl . 

51 CONTINUE 
50 CONTINUE 

C FIND NEW STABILITY NUMBER 

CALL CONVRG ( FUDG ) 

C TEST TO SEE IF FINISHED 

IF(NCYCLE-NCYCMX)8i.9l,91 
81 CONTINUE 

IF<NCLCM-KALK0M)89,88,88 

88 CONTINUE 
WRITE(6,606)T,NTCYCL 

606 FORMAT (3X11HT0TAL T I ME*E14 7 , 3X17HNLMBER OF CYCLES=I4) 

CALL CALPLT 
NCLCM*0 

89 CONTINUE 

C TEST TO SEE IF PRINT TIME AFFIRMATIVE 

IF (NPICTR-NNPCMX) 901* 90,90 

90 CONTINUE ' ' 

C PRINT DISPLAY OF FLOW FIELD ALONG THE RAYS 8 , P I /2» P 1 , 3*P 1/2 

CALL PRTOUT ( NTCYCL ) 

C RESTART PRINT CYCLE 

NP I CTR= 0 

901 IF( ISAVE.EO.O.OR.NSAVE.LT. ISAVE) GO TO 80 

902 CONTINUE 
REWIND 3 

WPITE<3H((PR0PTY<I,J;K)»K=»1,4).J = 1, JMAX), 1=1, I M*X),T, NTCYCL 
WRITE (3 JIM, <<<DROP<K,J, I > , K=1 , 3 > , J=1 , JMAX ) . I »1, ! M > 

NSAVEsO 
GO TO 80 
91 CONTINUE 

CALL CALPLT 

CALL PRTOUT(NTCYCL) 

IFCISAVE)182,5,182 
181 WR I TE( 6, 6666 ) 

6666 FORMAT ( 1 HI, 20X, 63 H* ********* ERROR ABORT - NEG, DENSITY IN THE F 
1IELD ********** /21X, 63H***** ********************* *****#M********** 
2 ******************** > 

WRITE(6,606)T, NTCYCL 
JS«MAX0( J-2»l) 

JF«MIN0< J+2, JMAX) 

IS=MAX0( 1-2,1) 

IF=MIN0 ( 1+2* IMAX) 

WRITE (6, 7 07) (( J,I, (PROPTYI I, J, K ) , K=1 , 4 ) , J* JSV J>) I = JS, IF) 
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man no anociaoaociaonni<ian 


707 F0RMAT(1H0//(2I4,4E23.7) ) 

GO TO 184 
162 CONTINUE 
REWIND 3 

WRITE! 3) ( ( ( PROPTY ( l » J , K) * K»l, 4 ) » J*1 , JN AX ) » I *1 j ! MiX ) > T, NTCYCL 
WRITE (3) IN, ( (< DROP ( K, J, I >,•<■!, -3>, Jsl,wMAX).I«l’, !M> 

184 QO TO 5 
186 CONTINUE 
ENDFIIE 3 

CALL PLOT ( 0 . , 0 . > 999 ) ' 

STOP 

END 

subroutine initil 

C********* SETS up THE INITIAL DATA IN THE ’ ARRAY PRQPTY AFTER 
********* COMPLETING THE NORMALIZATION FROM INPUT DATA ************** 




************ scaling Rules ************** 
******************************** 

EQi* ( TO/RHO0 ) , , EQ2*(TO/(RHOO*AO> ) , , E03* (TO/ 1 RHOfl*AO ) } . , 
EQ4*(TO/(RHOO*AO**2) ) , , , , T0= ( RMAX/ AO ) 

******************************** 


********** 

********** 

********** 

********** 

********** 

********** 


TIME IS SCALED BY ...THE REF TIME SCALE ********** 
DISTANCE IS SCALED B Y ... COMBUST I QN CHAMBER RADIUS*** 
VELOCITY IS SCALED BY... REF SOUND SPEED ********** 
DENSITY IS SCALED BY . . . REFERPN 1 E DENSITY************ 
PRESSURE IS SCALED 3Y...REF SOUND SPEED**2*REF 
DENSITY********************************************* 


*************************************** ************************** 
COMMON PROPTY,GAMMA3,GAMMA1.GAMMA*DELR>DELO*PO,PMAX»PR.ER«TAU» I MAX 
1» JMAX,T,DTDR,DTD0,DT,P, AO.ROO ,NCY 
DIMENSION PROPTY (21*20/4) 

COMMON/LE/ FJMAX/IMAXMI.Xj Y , RAD ( 41 ) , OVRLAY ( 12 , 20'. 21 ) , 

10VRPRM(16< 20 » 21 >' j HT ( 40 > ’ 

COMMON/PH IP/DROP <5* 20, 2D, PH I , EN, FS, DKF, DMFT! I M.XM 
COMMON/NCPLOT/NTCYCL, I START > HGA'M, LABLX ( 5 ) , L ABLY < 4 ) 

DATA P I, TWOPIV-3. 14159265, 6. 28318531/ 

READ (5*5) GAMMA, PO,PMAX,TAU, RMAX 

WRITE ( 6, 65)' ? 

65 F0RMAT(4X;'5HGAMMA,5X;i6HCHAMBER PRESSURE , 2X, 14HPULSE PRESSURE , 4X, 1 
1 5H 

2PULSE DURATION, 4X, 

3 14HCHAMBER RAD I US/20X , 3HPSI . 15X, 3HPS 1 , 15X . 3HSEC, 15X 

2 , 2HFT// ) 

********************************* 
****** BOMB PULSE PRESSURE AND TIME DURATION ARE ONLY 
****** TO BE REFERENCED WHEN INITIAL CONDITIONS ARE 
****** FOR A PULSE TYPE CALCULATION i********** 
********************************’* 
WRITE(6,4) GAMMA, PO,PMAX,TAU, RMAX 

4 F0RMAT(1X,2E14.7,E18.7,E19.7,F12.4///) ■ 

RE AD ( 5 , 5 ) XM,T0, VFACT,EN 
WR I TE ( 6 , 68 ) EN 

68 F0RMAT(3X10HM0L WE I GHT3X19HCHAMBER TEMPERATUREi0X2HN»E10. 3 //) 

WR I TE ( 6. 5 ) XM, T 0 
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noonnn 


WR I TE I 6, 76 ) 

76 F0RMATI1H ///) 

GAMMA SPECIFIC HEAT RATIO 
PO UNPERTURBED PRESSURE 
PM AX AMPLITUDE OF PRESSURE PERTURBATION 
TAU IS DURATION OF PERT. 

I MAX j JM AX MESH DIMENSIONS 

XM MOLECULAR WEIGHT, TO CHAMBER TEMPERATURE 
7 FORMAT (214) 

•5 FORMAT(4E14.7,2F10.4) 

POepO 

RO03(P0*144. )/<<1545./XM>*T0) 

AO'SQRT (GAMMA*32 .17*PO*144./ROO ) 

C RHO=RO/ROO=1. 

RHO=l . 

TOsRMAX/AO 

YaTO 

XTO*TO*1000 . 

EQ2»R0G*A0/T0 

P*P0*144.*32.17/(RMAX*FQ2) 

DELR=3.0/FLOAT(IMAXM1) 

DEL0=2.*PI/FJMAX 
GAMMA1 = GAMMA-1 . 

GAMMA3=GAMMA-3. 

PHlsl . 0 

FS=0. 695652174 

DMFT=TO/ROO 

DMFsDMFT*778. 0*32.1 7/ (AO*A.O) 

HGAM = 0 .0 
PR*PMAX/PO 
ERsPR/GAMMAl 
WR I TE ( 6 , 67 ) 

67 FORMATtlX, 16HREDUCED PRESSURE, 2X , 15HREF SOUND SPpED, 2X» 11HREF DENS 
1 1 TY, 6X, 7HDELT A R, 7X» 11HDELTA THETA , 4X , 43HPRESSURF AND INTERNAL ENE 
?RG Y RATIO OF PULSE//) 

WRITEC6,6> P, AO,ROO,-DELR,DELO,PR',ER.XTO 

6 F0RMATC7E16.7///16H REF TIME SCALE=Fi5 . 5/3X , 8HM I L’L I SEC/// > 

WR I TE ( 6 , 566 ) 

566 FORMAT ( IX, 117H****************************** A********* END OF INIT 
1ILI2ATI0N PHASE ******************+*********#**t*****************/ 
2 /////) 

RAD < 1 ) = 0 . 0 
DO 501 1 = 2, IMAX 
501 RADI I)=RAD< I-D+DELR 
NT < 1 ) =0 • 0 
DO 502 J=2,JMAX 
502 HTI J)bHK J-D+DELO 

IF! ISTARD506, 505,506 

505 CONTINUE 

READ 1 1 ) ( I (PROPTYI I , J, K ) » K»1 , 4 ) , J = 1 , JMAX ) , I =1, I M aX ) , T , NTCYCL 
READ < 1 ) IM, I I I DROP IK, J, I ) , K = 1 , 3 ) , J = 1 , JMAX ) . 1*1, IM) 

GO TO 504 

506 CONTINUE 

I Q» I MAX/10 
IM3= IMAX-3* I Q 
I M2= I M3+1 
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IFCVFACT.NE.O.O) GO TO 512 
1SMM2 

EPSa(PMAX-PO) /CPO*GAMMA) 

BdTW0PI/3.0 
UI«0 .4 
QU°U I 

QK*-UI*B-SQRT(B*B-1. 0) 

QKEaEPS/QK 

DO 510 1=1, 1 M3 

RE AD ( 5 » 60 0 ) SR,Q1»Q2,Q3 

SUaQl/SR 

SP«GAMMAi*(G3-0 ,5*Q1*SU) 

B2«B*RAD( I ) 

QlaCOS(BZ) 

Q2*QKE*B*SIN(BZ) 

Q3*GKE*Qi 
DlaEPS*01 
DO 510 J = 1 » JM AX 
TH»HT( J) 

CTH*COSCTH) 

STHaSIN(TH) 

PRS«1.0-Q1*CTH 
RHOQ=SR*PRS 
PRS»SP*PRS 
U«SU*<1. 0«G2*STH) 

VaQ3*CTH 

PROPTYU, J,l>*RHOQ 

PR0PTY(I*J»2) a RH00*U 

PROPTYU, J.3>aRH00*V 

PROPTYU - J,4)aPRS/GAMMAl*0 . 3*RHOQ* < U*U + V*V-> 
510 CONTINUE 

READ ( 5» 600 )( < P.ROP'TY ( I < 1» K.) ,K*1,4), I * I M2, I MAX) 
GO TO 520 
512 CONTINUE 
IP0P=3 


IS*1 

JS*(3*JMAX)/A-1 

JFbJS+4 

QN®P I / ( 6 . 0*DELO) • 

GAMEXP»GAMMA1/GAMMA 

gaminv=i.o/ganma 

READ (5, 60 0 ) ( (PROPTYt 1 , 1,K) ,K=1,4) , 1*1, I MAX) 
EPOP=0 . 0 
DO 515 1=1, I M3 
515 6POP = EPOF*PRO'PT Y( I » 1,4) 
EPOP=VFACT*£POP*FJMAX 


SMAeO , 0 

DO 518 J = JS > JF 

518 SMA=SMA+S1N(QN*HT( J) )**GAMEXP 

A»( GAMMA1*EP0P/SMA) **( QAMMA/GAHMAl) 


520 CONTINUE 

DLN*3 . 2808E-4 

TLS8700 ./tl5. 0622979- ALOG(PO) ) 


TRM = i.5-TL/ll'75.69; 

RH0L C 1'4 . 4-+-TRM*-( 86 . 82-60.654* 


TRM > *6. 3431*SQRT<TRM >*17.716 


1*TRM**0 .'333333333 
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WL=PI+RH0L+DLN*+3/6. 0 
UD*12 0 . 0 
VD=0 . 0 

I M» I MAX-4* I Q 

Ql«(QU*AO-UD) /FLOAT ( IM-1> 

Q2*9.0/FLOATUM-1) 

DO 522 1=1, IM 
QI«1-1 
3=1 .0+01*02 
DROP ( 1» 1 , I )=WL/Q**3 
DR0PC2.1, I ) =UD+Q I *Q1 
522 DROP (3,1, I)=0.0 
DO 530 J = 2» JM AX 
DO 525 1=1, IM 
DO 525 K=1 , 3 

525 DROP(K,J, I)=DROP(K,l» I) 

DO 530 I = I S » I MAX 
DO 530 K=1 , 4 

PROPTY ! I ,J,K)»PROPTY C 1 ,1,1 
530 CONTINUE 

504 IF(EN.NE.O.O) GO TO 545 
DO 540 1=1, IMAX 
DO 540 J=1,JMAX 
DO 540 K=1 , 5 
DROP ( K» J. I ) = 0 . 0 
540 CONTINUE 
545 CONTINUE 

IF(VFACT.EO.O.O) RETURN 

SUaPROPTYC I POP, 1,2) /PROPTY ( I POP >1,1, 

SP-GAMMA1*! PROPTY I I POP , 1, 4 ) -O'. 5*PROPTY U-P0PV1* 2 ) +SU ) 

DO 550 J = JS > JF 

PRP=0 ,5*A*SIN(0N*HT< J) ) 

RHOQ = PROPTYC I POP, 1 , 1 ) +PRP**G AM I NV 
PRSaSP+PRp 

PROPTY! IPOP, J,l)=RHOQ 
PROPTY! I POP, J,g)=RHOQ*SU 

PROPTY ( IPOP, J, 4 ) =PRS/GAMMAl + 0.5*PROPTY( IPOP. J,2')iSU 
PRPsO ,5*PRP 

RHOQsPROPTYC I POP, 1. 1 ) +PRP**Q AM I NV 
PRSaSP+PRP 

PROPTY ! IPOP-1, J,l)«RHOQ 
PROPTYt IPOP-1. J,2)«RH08*SU 

PROPTY C IPOP-1. J, 4 ) «PRS/QAMMA1+(J ,5*PR0PTY ( IPOR-1. J.2 )*SU 
PROPTY! I POP+i. J.i) *PROPTY! I POP-1, J,1 ) 

PROPT Y ( I POP+1, J,2)»PROPTY( IPOP-1, J, 2) 

PROPTY! IPOP+i, J,4)»PR0PTY( IPOP-1, J, 4) 

550 CONTINUE 
RETURN 

600 FORMAT ! 4E15 . 8 ) 

END 

SUBROUTINE CHARGE 

C********* COMPUTES BOUNDARY CONDITIONS AT THE PERIPHERY’ 

C********* OF THE CYLINDRICAL SURFACE ■ ********A********************* 

COMMON PROPTY , GAMMA3, GAMMA1, GAMMA , DELR ,'DELO, PO, PMAX, PR, ER» TAU, IMAX 
1 , JMAX ,T,DTDR,DTDO,DT,P, AO, ROO ,NCY 

DIMENSION PROPTY (21,20,4) 
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COMMON/LE/ F UMAX, IMAXM1 ,X, Y, RAD (41 ) ,OVRLAY(ia,20 r ,21) , 
10VRPRM(16,20,2l),HT(40) 

COMMON/PH I P/DROP (5. 20,81), PHI, EN,FS,D^F,DMFT7 I M.XM 
COMMON/NCPLOT/NTCYCL, I ST ART , H3 AM, L A 8LX < 5 > , LABL Y ( 4 ) 

DO 60 J=1,JMAX * 

JP1*J*1 ' 

IF ( JP1., QT . JHAX ) JPlsl 
JMlsJ-1 

IF(JMl.EO.O) JM1= JMAX 
DO 50 K=l,4 

FD*0VRPRM(K+4,J,2)+0VRPRM<K*4, JM1,2> 
GD*OVRPRM(K+6,J,2)"OVRPRM(K+8,JM1,2) 

PROPTY<l,J,K) a PROPTY(l,j,K)+(DTDR*(CVRLAY(K,U»2)*FD)*0»5*DTDO* 

1 (<0VRLAY(K+4, JPl,l)-0VRLAY(K+4, JM1,1) > *0 . 5*GD > *0 , 5 ) 

50 CONTINUE 

PROPTYd, J,l)»PROPTY(l, J , 1 ) +DT*DROP < 4 , J,l) 

PROPTYd, J, 2)50.0 

PROPTYd, J,4)=PR0PTY(1, J,4)fDT*DR0P( 5. J,l) 

DO 60 K=1 , 4 ■ 

PROPTYUMAX, J,K)=PRQPTY( I MAX-1 , J , K ) +PROPTY d MAX-1 , J, K > 
j-PROPTYUMAX-2, J,K) 

60 CONTINUE 
RETURN 
END 

SUBROUTINE CONVRG ( FACTOR ) 

, c********* COMPUTES A TIME increment TO BE USED IN DIFFERENCE equation 
C********* BASED ON C.F.L, CONDITION A********************* 

COMMON PROPTY,GAMMA3,GAMMAl,QAMMA,DELR,-DELO,PO.PMAX,PR,ER,TAU, I max 
1, JMAX, T,DTDR, DTDO,DT 
1 ,P , AO, ROO , NC Y 
DIMENSION PROPT Y (21,20,4) ’ 

COMMON/LE/ FJMAX, IMAXM1 , X, Y, RAD ( 41 ) , OVRL AY (lfl , 20*. 21 ) , 

1 OVRPRM (16 , 2 0 ,21 ) , HT ( 40 ) 

DT*0. 3/(16. *.75/3.9445) 

DT=DT*FACTOR 
SQal./SQRT (2.) 

DO 1 1=2, I MAXM1 
DO 1 J = 1,».JM AX 

VELSQR,* ( PROPT Y ( f, J, 2 ) **2*PROPTY ( I , J, 3 ) **2 ) /PROPT Y ( I, J,l)**2 
IF ( VELSQFl ) 8,8,2 . 

2 BG«PR0PTY( I, J,4)/PR0PTY( I, J, 1) -0 . 5* VELSQR 
IF(BG) 8,7,7 

7 DENOM*SQRT £ GAMMA*GAMMX1*BG ) 

TERM = SQ/(DENOM*SQRT ( VELSQR ) ) 

TERM0aTERM*FACT0R*DELO 

TERMR=TERM*FACTOR*DELR 

DTEsDT 

DT=AMIN1(DT, TERMR,TERMO) 

IF(DT-DTE) 150,8,8 
150 I T» I 
JT" J 

8 CONTINUE 
1 CONTINUE 

DTDR=DT/DELR 

DTDO=DT/DELO 

RETURN 
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END 

SUBROUTINE VECTR( IF, IL> 

c********* computes the values of the vector functions of w where w 

C********* IS THE VECTOR OF CONSERVATION VARIABLES ******************* 
COMMON PROPTY, GAMM A3, GAMKAl, GAMMA, DELR,DEL0»P0, PM AX, PR, ER.TAU, 1MAX 
1, JMAX,T,DTDR,DTDO,DT,P,AO,ROO,NCY 
DIMENSION PROPTY (21,20,4) 

COMMON/LE/ FJMAX, I MAXM1 , X , Y , RAD (41 ) , OVRL A Y ( 12 , 20 21 > , 
10VRPRM(16,20,21),HT(40) 

DO 50 I = I F, I L 
ZZ = RADU) 

ZF=FZ(ZZ> 

DO 50 J=1,JMAX 

U = PROPTY(I, J,2)/PR0PTYU, J,l) 

VsPROPTYd, J,3)/PR0PTY(I, J,l> 

PRSsGAMMAl*( PROPTY ( I, J,4)-0.5*PROPTY( I , J, 1)*<U*U*V*V> ) 

OVRLAY ( 1, J, I ) a*PROPTY ( I , J, 2 ) 

0VRLAY(2, J, I )=OVRLAY(l, J, I >*U 
OVRLAY ( 3, J, I)sOVRLAY(l, J,I)*V 
OVRLAY ( 4, J, I )=-PRQPTY( I , J, 4 ) -PRS 
OVRLAY ( 5, J, I ) =-PROP T Y ( I , J , 3 ) 

OVRLAY ( 6, J, I ) sOVRL A Y ( 3 » J, I ) 

OVRLAY <7, J, I ) sOVRL AY ( 5, J, I)*V-PRS 
OVRL A Y ( 8 , J, I )*0VRLAY(4, J, !>*V 
OVRLAY C 9, J, I )=OVRLAY(l, J, I)*ZF 
OVRLAY (10, J, I > *OVRL A Y ( 2 , J , I>*ZF 
OVRLAY ( 11, J, I )*0VRLAY(3, J, I )*ZF 
OVRLAY ( 12, J, I )* -PROPTY ( I , J, 4 ) *U*ZF 
OVRLAY (2, J, I)=0VRLAY(2, J, 1 5 -PRS 
OVRLAY { 4 , J, I )=0VRLAY(4, J, I )*U 
50 CONTINUE 
RETURN 

end 

SUBROUTINE QUAD(LF,LL) 

c********* COMPUTES w. .SQUIGGLECT+DELT), THE TEMPORARY VALUE 
c********* OF THE CONSERVATION VECTOR ******************************* 
COMMON PROPTY, GAMM A'3,GAMMA1, GAMMA, DELR,DELO,PO»PMAX»PR,£R,TAU» I MAX 

1 , JMAX.T.DTDR, DTDO,DT,P, AO, ROD ,NCY 
DIMENSION PROPTY (21,20,4) 

COMMON/LE/ FJMAX, IMAXM1,X.Y,RAD( 41), OVRLAY ( 12, 30',21), 
10VRPRM(16,20,21),HT<40) 

COMMON/PHI P/DROP (5, 20, 81), PHI, BN, FS.DKF,DMFT5IM,XM 

DIMENSION AVEW ( 4 ) 

IM1= IM-1 

DO 60 J=1 , JMAX 

JP1=J+1 

IF( JP1.GT. JMAX) JP1=1 
DO 40 L=LF, LL 
DO 2 K = 1 , 4 

1 AVEW(K)=0 .25* (PROPTY ( L, J, K > +PROPTY ( L+l , J, K ) +PROPTY ( L+l , JP1, K ) 
l*PROPTY(L, JP1,K) ) 

TEMPWl = AVEW(K) + ( DTDR*( OVRLAY (K,J,L+1 ) - OVRL A Y C K, j', L ) +OVRLA Y( K , 

1JP1, L+l )-OVRLAY(K, JPl, L) ) +DTDO* ( OVRLAY ( K*4 , JP1 , L ) -OVRLAY ( K+4, J 

2, L>+OVRLAY(K+4, JP1,L+1 )-0VRLAY(K+4, m ,L+1 ) )> *0 . 5+0 . 25* ( OVRLAY ( K+8 

3, J,L)+0VRLAY(K + 8, JP1,L) + 0VRLAY(K + 8,m-P1,L + 1)+BV»LAY(K + 8, J,L + 1) )*DT 

2 OVRPRM(K, J,L+l)=TEMPWl 
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40 CONTINUE 

IFCEN.EQ.0.0) GO TO 60 
DO 50 L=LF , I Ml 

OVRPRM (1, J,l + l)=OVRPRM<i, J.L+D+0 . 25* < DROP ( 47 J, iV+D’ROP < 4, JPi,L>+ 
lDROP(4»JPl,L+X)t.0ROP(4,J,L + l))*DT- 
OVRPRMM, J,L+1)=0VRPRM<4» J, L+l > +0 , 25* < DROP C 57 J. L) +DROP < 5, JP1,L)+ 
1DR0PC5, JPl,L+l)+DROP(5, J,L*1> )*DT 
50 CONTINUE ' ' • . 

60 CONTINUE 
RETURN 
end 

SUBROUTINE TMPVCT ( IF , I L ) 

COMMON PROPT Y, GAMM A3, G ARM Ai, GAMMA, DELR , DELO . PO» PM AX , PR , ER , T AU, I MAX 
1, jmax,t>dtdr,dtdo,dt.,p, ao;rooYncy 
DIMENSION PROPTY (21,20,45 

COMMON/LE/ FJMAX, IMA-XMt,X,Y,RAD(41),OVRLAYa2,20 , .2l), 

3 OVRPRM ( 16, 20 , 2l ) , HT(4 0 ) " 

DELZ2»0.5*DELR •' 

DO 5.0 I = I F , IL 
ZZ a RAD< I ) -DELZ2 
ZF=FZ(ZZ) 

DO 50 J=1,JMAX 

U«OVRPRM( 2 , J, I >/OVRPRM(i, J, I ) 

V = 0VRPRM(3, J, D/OVRPRMd, J, I ) 

PRSsGAMMAl* ( OVRPRM ( 4, J, I ) -0 . 5*0VRPRM ( 1 , j , J)*CU*U*V*V) ) 

OVRPRM ( 5, J, I ) =-OVRPRM ( 2, J, I-> 

OVRPRM ( 6, J, I ) s OVRPRM(5, J, I )*U 
0VRPRM( 7, J, I ) a OVRPRM ( 5 , J, I ) * V 
OVRPRM ( 8, J, B = -0VRPRM<4, J, D-PRF 
OVRPRM ( 9, J, I >'s-0VRPRMG3, J, I ) 

OVRPRMt 10 , J, I ) e OVRPRMt 7» J* I )• 

OVRPRM (11, J, I)a OVRPRM ( 9, J, I)*V-PRS 
0VRPRMC12, J, I >a 0VRPRM(8, J, I )*V 
0VRPRM( 13, J, I ) a 0 VRPRM ( 5, J, I) *ZF 
0VRPRMC14, J. I>* 0VRPRM(6, J* I )*ZF 
OVRPRM ( 15, J , I ) * 0VRPRM(7, J, I )*ZF 
OVRPRM ( 16 , J, I ) b-OVRPRM( 4, J, I)*U*ZF 
0VRPRMI6, J, I ) = OVRPRM ( 6, J, I ) -PRS 
OVRPRM ( 8, j; I ) a OVRPRM ( 8,' J, I >*U : 

50 CONTINUE 
RETURN 
END 

SUBROUTINE GENPT ( I F , I L) ' ' 

C********* COMPUTES'-THE VALUE OF W(T + DELT) AT REGGLAR MESH POINTS 

c********* and at Boundary points *********'#*i*G******************* 
COMMON PROPT Y, GAMMA3, GAMMAl. GAMMA, DELR, ‘DELO. -0 , PMAX , PR, ER » TAU, I M AX 
1,JMAX,T,DTDR,.D-TD0,D-T - 
1 , P , AO , ROO , NCY- 
DIMENSION ‘PROPTY (21 v * 20 ,4-) 

COMMON/LE/ FJMAX, IMAXM1,X,Y,RAD ! (41)V0VRLAY t'1'2 , 20 'j 21 ) 
10VRPRM(16,20,21) ,HT(40) 

COMMON/PH IP/DROP (5, 20, 21), PHI, EN,FS,DMF,DMFT", IM.XM 
DIMENSION FDRVBR(4),GDRVBR(4),SAVEBR(4) 

DO 10 J=1,JMAX 
50 JPlsJ+1 
JMlaJ-1 


S’®- 
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IFC JPl.LE. JMAX) GO TO 7 
JP1 = I 

7 IF ( JM1.EQ. 0)JMl=JMAX 
DO 5 i = IF,R 

DO 4 K = l,4 
K4=K+4 

i FDRVBR(K) = (0VRPRM(K4, J +1 ) -0 VRPRM ( K 4', J, I ) ♦OVRPRM (K4 , *1 ) - 

10VRPRMCK4, JM1, I>) 

K8=K+8 • . 

3 GDRV8R(K) = (0VRPRM(K8, J, 1*1) “OVRPRM CK8, JM1, I + 1 ) +OVRPRM ( K8 » J, I)- 
10VRPRMCK8, JM1, I ) ) 

Kl2=K+12 

3 SAVE8R(K)s.25*C0VRPRMCKl2, J, I +1 ) +OVRPRMC K12,J, ! >*OVRPRM < K12, JM1 , I 
4*1)*0VRPRM(K12, JM1, I ) ) 

4 PROPTYC I , J,K)=PROPTYC I , J, K ) + C DTDR* ( ( OVRL A Y C K» J, 1*1 ) -OVRL A YC K , J , 1-1 
1 ) )*FDRVBR(K> ) * , 25 + DT-DO* ( ( OVRL AT ( K4 # jPJ j I >-0Vf<LAYiK4, JMi, I ) )+8DRVBR 
2(K) ) * . 25+DT* ( (0VRLAYCK8, J, 1+1 ) +OVRLA Y ( K0 , J, 1-1) ) * , 5+SAVEBR (K) )*.5) 

5 CONTINUE 

IFCEN.EQ. 0 . 0) GO TO 10 
DO 8 I = IF , IM 

PROPTYC I , J,1)=PR0PTY( I ,'J, 1 ) +DT*DR0P ( 4 , J , I ) 

8 PROPTYC I , J,4)=PR0PTY< I , J, 4 ) *DT*DR0P C 5 , J, I ) 

10 CONTINUE 

RETURN 

end 

SUBROUTINE PRTOUT C CYCLE ) 

C********* PRINTS A TERSE VIEW OF THE FLOW FIELD ALONG THE 

C********* RAYS 0 , P I /2 > P I » 3*P I /2 #★*★*** ** * ***** * + *** * * * ********* * 

COMMON PROPT Y, GAMMA3, GAMMA1, GAMMA, D£LR,DELO,P0‘,PMAX, PR,ER»TAU, I max 
3 , JMAX,T,DTDR,DTD0,DELT , P , A0 , RO Q .NCYCMX 
DIMENSION PROP! Y C 21 > 20 , 4 ) 

COMMON/PRTOPT/INTPNT 

integer cycle 

75 LF = Q 
L“1 

WRITEC6.606) T, CYCLE 
IFCINTPNT.EG.O) GO TO 1818 

WRITE(6,707)CCJ,I , CPROPTY ( I » J»K> * K = 1 , 4 ) , J«i , UMAX ) ,1=1, I MAX) 

707 FORMAT (1X,2I4,4E23,7) 

1818 CONTINUE 

WR I TE C 6 , 6062 ) 

606 FORMAT ( 1H11 OX11HTOTAL T I ME»E12 . 5, 3X , 17HNUMBER OF CYCLES*!4) 

6165 FORMAT ( 8X , 5H RHO ,14X,3H U .-14X.3H V ,19X,10MINT ENERGY, 8X, 10H PRE 
1SSURE , 10X , 9H MACH NO.///) 

6061 F0RMATC1X,6E19.5) 

6062 FORMAT(1HO,20X,32HSOLUTION ALONG THE RAY TWETA « 0///) 

6063 FORMAT<1HO,20X,33HSOLUTION ALONG THE RAY TWETa » PI///5 

6064 FORM AT ( 1H0 , 20 X , 35HS0LUT I ON ALONG- THE RAY THETA s PI/2///) 

6065 FORMATC1HO,20X,37HSOLUTION ALONG THE RAY THETA a- 3*PI/2///) 

402 CONTINUE 

WR I TE ( 6 , 6165 ) 

DO 1012 1*1, IMAX 
RHOXsPROPTYC I ,L,1 ) 

UX=PROPTYC I,L,2)/RHOX 
VX=PROPTY( I ,L,3)/RH0X 

EX=( PROPTYC I,L,4)/RHOX)-0.5*(UX**2+VX**2> 
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PX»GAMMA1+RH0X+EX 

XMX = SQRT< (UX**2 + VX + *2)/(GAMMA*PX/.RHGX) ) 

1011 WR I TE ( 6 , 60 61 ) RMOX , UX ,-VX , EX , PX , XMX 

1012 CONTINUE 
LF*LF+1 

QO T0<404, 504, 403, 1001), LF 
404 CONTINUE 
L*JM AX/2+1 
WRITE(6,6063> 

GO TO 402 
504 CONTINUE 
LsJMAX/4+1 
WRIT£<6,6064) 

GO TO '40'2 
403 CONTINUE 

L«3* ( JMAX/4 ) +1 
WRITE! 6, 6065) 

GO TO 402 
1001 CONTINUE 
RETURN 
END 

FUNCTION FZ(Z) 

COMMON/FZA0/A,B,B8 
DZ=Z-2.1 
IF ( DZ)10 ,10,20 
10 FZ a 0 « 0 
RETURN 

20 FZ=<BB*DZ-A)/(DZ*(8*DZ-A)+1 .0) 

RETURN 

End 

SUBROUTINE PHIDOTV 

COMMON PR0PTY,GAMMA3,GAMMA1,GAMMA,DELR,DEL0.(»0,PMAX,PR,ER,TAU, I MAX 

1, jmax,t,dtdr.dtdo.dt,p,ao.roo ,ncy 

DIMENSION PROPT Y (21,20,4) 

COMMON/LE/ FJMAX, IMAXMi.X, Y, RAD ( 41) ,OVRLAY(lS,9o',21) , 
10VRPRM(16,20,2D,HT(40) 

COMMON/PH I P/DROP(5,20,21),PHI,EN,FS,DMF,DMFT»IM,XM 
DIMENSION PHIIN(4).TT(12),DHRT(12) 

DATA TWOPI ,PI ,RZ/6.28318531, 3.14159265, 1544,/ 

DATA SPI,0NE3/1. 9098593 ,0.333333333/. 

DATA G,CPSINF/32. 17,. 3539658/ 

DATA TT,DHRT/10 80 0 . 0, 990 0.0, 90 0 0. 0,810 O.0, 7280 . O’. 630 0.0,5400.0, 

X 45 00. 0,360 0.0,2700.0,1800.0,536.4,225.0,1010.0.1860.0,2580.0, 

X3380 .0,4160. 0,490 0 . 0,5620 .0,6300 . 0 , 697 0 . 0 , 7540 ; 0 r . 8150 . 0/ 

DLTsY*DT 
DTAsDT/AO 
PHlTFSePHI*FS 
ELFZ=540. 0+178. 2/PHITFS 
WLMINaO . 001*DROP(1, 1 , 2 ) 

DO 100 J=i;JMAX 
DO 90 1=1, IM 
WL*DROP(l, J, I ) 

V1 = DR0P(2, J, I > 

V2=DROP(3, J, I ) 

IF(WL.GT.WLMIN) GO TO 5 
OVRPRM ( 1 » J , I + 1 ) = 0 . 0 
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0 VRPRM ( 2i J , I +1 ) =V1 
OVRPRM ( 3 » J * 1+1 )*V2 
OVRPRMI4, J, I+l)sHT< J) 

OVRPRM ( 5 . J , I*i)=RAD( I) 

DR0PC4, J, I > = 0,0 
DROP ( 5 * J, I ) =0 . 0 
GO TO 90 
5 CONTINUE 
DO 10 K=1 , 4 

10 PHIIN(K)=PR0PTY(I» J/K) 

ELITLE=(PHI IN(4)-0 .5* (PH I IN(2')**2 + PH IN( 3)**2) /PHI INCH) /PHI I N ( 1 } 

P I NF = PH I IN(1>*GAMMA1*ELITLE*ROO*AQ*AO/<144 .*8) 

RHO I NF = PH I I N ( 1 ) *ROO 

TINF=PINF*144.0*XM/(1545.*RHOINP) 

Ul=PHI IN(2)/PHI IN(1)*A0 
U2spHIIN(3)/PHI IN(1)*A0 
DUV1=U1-V1 
DUV2=U2-V2 

UVMG=SQRT(DUVl*DUVl+DUVg*DUV2) ' 

A300=3.73E-5*TINF+1.853 
AP = A300*(PINF/300 . )**. 01'08 
IF<PINF-2131. ) 25 » 20 * 20 
20 TL=1175 . 69 
RH0L=14 . 4 
GO TO 30 
25 CONTINUE 

TL=8700./{15.0622979-ALOG(PINF) > 

TRMsl . O-TL/1175.69 

RH0L = 14 ,4-t.TRM*{86 .82-60 .654*TRM)+6..3431*S0RT(TRM’)+17 ,716*TRM**ONE3 
30 CONTINUE 

DLN3(SPI*WL/RH0L)**ONE3 

SK=. 69l7l6667E-4-2,3l308889E-8*TL 

CP=.137857+TL*< , 52715E-3-TL* . 11990-7E-6 > 

EMFZ=TWOPI*DLN*SK/CP*AP 
PR3*0 .591 

UINF=2.5E-5*SQRT<TINF/560 . ) 

RE»RHOINF*DLN*UVMG/UlNF 
EMFD=EMFZ*U. 0 + 0.276*SQRTCRE>*PR3>' 

P$I=EN*EMFD*<1.+1./PHITFS> - 
DR0P(4, J. I)=PSI*DMFT 
CALL SEEK{T!NF,TT*11j IJ) 

60 FORMAT (11H SEEK ERROR , 2E20 . i.0 ) * 

IF( I J)80* 70> 80 
70 PRINT 60 j T I NF> TT (1 ) 

STOP 

80 CONTINUE 

DHRsDHRT ( IJ>+( DHRT ( I J+l ) -DHRT <IJ))*(TINF-TT(!J)>/(TT(|J+1)-TT(IJ)) 
XISsEN*6MFD*(DMR-ELFZ) 

DR0P(5, J, I )=XI$*DMF 
OVRPRMd, J, I+1)=WL-EMFD*DLT 

I F ( OVRPRM ( 1 » J# I +1 > . LT . 0 , 0 ) O.VRPRM ( 1 » J , I+1)>0.0 
CD = 20 ,25*RE**(-0 . 84) 

CDRaCD*RHOINF/(RHOL*DLN)*DLT 

OVRPRM C 2 , J, I+1)=V1^CDR*DUV1*A8S(DUV1) 

OVRPRM ( 3 , J, I+1)=V2+CDR*DUV2*ABS(DUV2) 

OVRPRM ( 4, J, I+1)=HT( J)+V2*DTA 
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0VRPRMC5, J, I+1)sRAD( I)*V1*DTA 
90 CONTINUE 
100 CONTINUE 
CALL MSHVL 
RETURN 
End 


SUBROUTINE MSHVL 

i C |MAy\ P n;n B TY nrnn M ^'» AMMA 1 ,GAMMA,DELR ’ DEL 0 ’' ) °* PMAX ' P «^ R ' T AU,IMAX 

3 * UMAX, T / DTDR> DTDO# DJ, p, AO, ROO - vN'CY v -* 

DIMENSION PROPTY(21*20,4) 

COMMON/LE/ FJMAX, I MAXM1 , X, Y , RAD < 41 ) , 0 VRL A'Y M : 2,~20 ‘ 21 > , 

10VRPRM(16,2 0,21),HT<40) LAmozo.zil. 

COMMON/PHI P/DROP (5, 20, 21), PHI, EN, FS, DNF, DMFT, IM, XM 
DATA TWOPI/6. 28318531/ ■ *' 1 * * 

DO 60 1=2, IM 
DO 20 J=i,JMAX 

Dri0 D Kil‘4 VRPRM<5 ''' J ' I>>/COVRPRMC ' 5, “'' i:+1 ’ > ” OVRPRMi5 ' J ' I ' )> 

JI + I)=0VRPR M«K, J,I)+Q*{OVRPRM<K,J,| + 1»--.OVRPRM<K ( J,|>> 

d O UQNT I NUc 

DO 50 J=1,JMAX . 

Q = HT( J)-0VRPRM(9, J, I ) 

JJaJ+SIQN( 1 . 0 ,O) 

IF(JJ)30, 25,30 
25 JJsJMAX 

Q*Q/(0VRPRM(9, JJ, I )-TW0PI-OVRPRM09, w', I )•) 

GO TO 45 - 

30 IF( JJ-JMAX)40, 40,35 
35 JJ=1 

Q = Q/(0VRPRMC9, JJ, IJ + TWOPI-OVRPRMI 9/J, I )) 

GO TO 45 * 

40 Q=Q/(CVRPRM<9* JJ, I >-OVRPRM ( 9, J, I } ) 

45 CONTINUE 


DO 50 K=l,3 

60 CONT INUE* * )=0 ' /SPRfl '* K * 5 ’^' I) + Q*(OVRPRM(k+5,JJ7 I)»0VRPRM(K+5,J, l) ) 

RETURN 

end 

SUBROUTINE SMOOTH 

COMMON PROP TY,QAM M A3,GAMMA1, GAMM A , D ELR, DELOj p 0 ,p MAX> p R> ER>TAU . j MAX 
1 , UMAX, T, DTDR» DTDO, DELT ,P,AO,RQ0 ,NCYCMX 
DIMENSION PR0PTY (21*20*4) 

COMMON/LE/ FJHAX* IMAXM1, X,Y»RAD(41),OVRLAY<12,an' 21), 
10VRPRM(16*20,21),HT(40>- * 

SMK=0,5 


DTH=SMK*DTDO 

dz=smk*dtdr 


DO 20 1=2, IMAXM1 . , ... 

V2«PR0PTY ( I , JMAX,3)/PROPTY( I , JMAX, 1 ) 
DO 20 J=1 , UMAX 
V1 = V2 


V2«PR0PTY(I, J,3)/PR0PTY(I, J,l) 
DV=ABS( V 2 -V 1 ) 

JM1* J-i 

IF(JMI.EQ.O) JM1= UMAX 
DO 20 K=i , 4 
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20 OVRPRMCK.J, I) =DV*'( PROPTY < I . J, K > -PROPTY (I , JMIS K )) 

DO 30 1=2, IMAXM1 
DO 30 J=1 > JMAX 
JPl=J+i 

IF! JP1.GT. JMAX) JP1=1 
DO 30 K = 1 , 4 

30 PROPTY ( I, J,K)»PROPTY< I, J, K > ♦DTH* ! OVRPRM! K, JP1, i ) .OVRPRM ( K , J, I) ) 

DO 40 J = 1 , JMAX 

U2»PR0PTY<1, J, 2) /PROPTY <1,4*.1> 

DO 40 1=2, IMAXM1 
Ui = U2 

U2=PROPTY( I,J,P)/PRQPTY!!,J>1) 

DU=ABS(U2-U1) 

DO 40 K=1 , 4 

4 0 OVRPRM ( K, J, I ) = DU* ( PROPTY ( I < J» K) ’PROPTY ( I - i , J7K }•) 

DO 50 J=1 , JMAX 
DO 50 1=2, I M AXM1 
DO 50 K=1 , 4 

50 PROPTY ( I, J,K)=PROPTY( I , J , K ) +DZ* ! OVRPRM ( K , J, 1+1 ) -OVRPRM ( K, J, I ) ) 
RETURN 
END 

SUBROUTINE CALPLT 

COMMON PROPTY,GAMMA3,GAMMA1*G4MMA,DELR»DELO,PO,PMAX,PR,ER*TAU, I MAX 
1, JMAX, T,DTDR,DTDO, CELT ,P,AO,ROO ,NCYCMX 
DIMENSION PROPTY ! 21 » 20 , 4 > 

COMMON/LE/ FJMAX, IMAXMi,X,Y,RAD(41),OVRLAY(i2,2 0',21), 
10VRPRM<16,20,21 ),HT(40 ) 

DIMENSION XX< 420), YY( 420 ) , UV ( ‘ 420 ) , THT ( 420 ) 

DIMENSION AA(20,21)fCLEVELS(20) 

EQUIVALENCE ( OVRL AY, XX ) , ( OVRLAY ( 421V, YY >.! OVRL AY < 841), UV), 

1 (OVRLAYC 1261), THT) , ( OVRL A Y ( 1681 ) , A A ) 

COMMON/NCPLOT/NTCYCL, I START , HGAM, LABLX (.g ) , L ABLY ( 4 ) 

EXTERNAL FX,FY . . 

DATA PI ,TWOP 1/3. 14159265, 6. 28318531/ 

TD=T+Y*1Q00 . 

100 F0RMAT(2HT=F7.3, I9,7H CYCLES) 

ENCODE! 25, 10 0 , L A8LX ) TD , NTC YCL 

LABLX(5)=0 

QeO.O 

GO TO 145 

DO 140 1=1, IMAX 

DO 140 J=1 , JMAX 

AA!J, I)=PROPTY( I, J,l) 

140 CONTINUE 

CALL CONTOUR! A A, 20, JMAX, IMAX, JMAX, 1 M AX , 0 . 0 » 3 . 0, 0 . 0 . TWOP I , 10 , 0 , 
*10.0,-15,CLEVELS,11HP|.OT OF RHO , LA8LX , LABL Y ,FX’.FY,Q> 

145 CONTINUE 

DO 150 1=1- IMAX 
DO 150 J=i , JMAX 

AA! J, I )=GAMMA1*( PROPTY! I , J, 4 ) - . 5* ( PR’OPT Y ! I . J', 2 ) **2 + PR0PTY < I , J,3) 
***2) /PROPTY! I, J,i) )*GAMMA 
150 CONTINUE 

CALL CONTOUR! A A, 20, JMAX, IMAX, JMAX, IMAX, 0.0, 3*0. O.Q,TWOPI, 10.0* 
*10.0,“15,CLEVELS,-16HPLOT OF PRESSURE, LABLX ,L*BLY ,FX,FY,Q) 
RAD!41)=-RAD!41) 

IF!RAD!41) .LT.0.0) GO TO 603 
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KK»G 

DO 91 I =1 » I MAX 
DO 91 J = l» JMAX 

KK*KK+1 . . 

UV(KK)=SORT(PROPTY( I, J,2)**2fpROP'TY(.i'^ <i 3>**?)/ i PROPTY(I* J#l) 
IF(UV(KK) .NE.0.0) GO TO 80 ' '* 

KK = KK-1 
GO TO 91 

8n continue 

XX(KK)=RAD( I ) 

YY< KK ) =HT ( J) 

THT(KK > S ATAN2 < PROPTY ( I , J, 3 ) f PROP.TY C'l * J »V) >. 

91 CONTINUE 

CALL PLOT C 2 . , ,50,-3) 

EHXY=0, 

DO 160 1=1, KK 
IF(UV< I) -EMXY >160, 160,155 
155 EMX Y=UV ( I ) 

160 CONTINUE 

CALL VECTORF ( XX, YY,UV,THT,KK, 0.0, 0.3,0. 0-, .628318531, EMXY, 0.5, 10.0, 
X10 . 0 , 19HVECT0R PLOT OF UMAG , L ABLX , LABL Y ) 

CALL PLOT C 12 . , "11 . , -3). 

603 CONTINUE 
RETURN 
END 

FUNCTION FX ( X ) 

FX»X 

RETURN 

END 

FUNCTION F Y ( Y > 

FY° Y 

RETURN 

END 

SUBROUTINE VECTORF ( X, Y , R , THETA , N, X0 , DX , Y 0 , D Yi RREF , VREF, XS I ZE . 

1 ysize,ititle,labelx,labely> 

VECTORF PRODUCES A VECTOR FIELD PLOT ‘ COMPLETE WITH AXES AND LA8ELS. 
THE PLOTTER ORIGIN, (OR REFERENCE PO-lNT) CORRESPONDS TO (XG,Y0). 

ALL MOVEMENTS ARE RELATIVE TO THIS POINT. VECTORF ASSUMES THIS 
ORIGIN TO HAVE BEEN PROPERLY SET BY THE. PROGRAMMER BEFORE ENTRANCE 
TO VECTORF. THIS IS DONE BY CALLING -PLOT- WITH A NEGATIVE THIRD 
ARGUMENT. E.G. CALL PLOT ( 2 . , . 58 , -3 ) 

X — AN ARRAY CONTAINING UNSCALED ABSCISSA VALUES. 

Y -- AN ARRAY CONTAINING UNSCALED ORDINATE VALUES. - 

R — AN ARRAY CONTAINING UNSCALED VALUES .OF THE .VECTOR MAGNITUDES. 

I.E. R ( I) IS THE MAGNITUDE OF THE VECTOR AT {X(I>,YU)>. 

THETA --AN ARRAY CONTAINING VALUES' OF THE VECTOR DIRECTIONS, IN 
RADIANS. WITH RESPECT TO THE POSITIVE X DIRECTION, 

I.E. THETA (I) IS THE DIRECTION OF THE VECTOR AT (XdJ.YH)), 

N -- THE NUMBER OF VECTORS TO BE PLOTTED.- X, Y', R, AND THETA MUST 
BE DIMENSIONED AT LEAST N IN THE CALLING ROUTINE. 

XO -- THE VALUE OF X AT THE REFERENCE POINT. THIS MAY BE ANY NUMBER 
LESS THAN OR EQUAL TO THE SMALLEST VALUE IN THE ARRAY X. 

XO IS THE VALUE AT THE LEFT END OF THE X-AXIS. 

DX -- THE CHANGE IN X PER INCH ALONG THE X-AXIS. DX SHOULD BE 
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CHOSEN SUCH THAT ( X0+DX*XS I ZE ) , GE . THE LARGEST VALUE IN 
THE ARRAY X. XO, DX, AND XSIZE SHGULD BE CHOSEN TO PROVIDE 
A CONVENIENT SCALE ALONG THE X-AXIS. 

YO, DY -- ARE DEFINED FOR Y AND THE Y-AXIS .AS XC, 'DX ARE FOR THE 
X-AXIS. YO IS THE VALUE AT THF LCWER END OF -THE Y-AXIS. 
FREF -- THE VECTOR MAGNITUDE WHICH IS. REPRESENTED ON THE PLOT BY A 
VECTOR VREF INCHES LONG. 

VREF -- THE LENGTH* IN INCHES* OF THE VECTOR WITH MAGNITUDE RREF, 
RREF/VREF IS USED AS THE SCALE FACTOR FOR R. 

XSIZE -- THE LENGTH IN INCHES OF THE X-AXIS. MINIMUM IS 7 INCHES. 


YSIZE ■ 

ititle 


labelx 

LABELY 


■■ THE LENGTH IN INCHES OF THE Y-AXIS. MAXIMUM IS 10 INCHES. 
-- AN ARRAY CONTAINING PACKED DISPLAY CODE. TERM I NaTED BY A 
ZERO WORD. THIS TEXT IS' WRITTEN ACROSS THE TOP OF THE PLOT. 
A HOLLERITH LITERAL ARGUMENT SUCH AS 17HVECT0R FIELD PLOT, 
WILL PRODUCE SUCH AN ARRAY. THE TEXT WlL'L RE CENTERED ALONG 
THE LENGTH OF THE PLOT. 

— SAME AS ITITLE* BUT WRITTEN ALONG THE X-AXIS. 

-- SAME AS ITITLE, BUT WRITTEN ALONG THE Y-AXlS. 


VMiN IS THE MINIMUM SIZE VECTOR THAT WILL BE PLOTTED. ALL VECTORS 

WHICH, AFTER SCALING* ARE .LT. VMIN INCHES LONG WILL BE DRAWN 
VMIN INCHES LONG. THIS MINIMUM MAGNITUDE IS COMPUTED AND 
STORED IN PMIN, 

VREF, RREF* RM IN* AND VMIN ARE WRITTEN WITH APPROPRIATE TEXT DIRECTLY 
UNDER THE TITLE OF THE PLOT. 

IF THE VALUES X=0, OR Y»o OCCUR ALONG THE X ANDXOR Y AXES, DASHED 
LINES WILL BE DRAWN TO INDICATE THEIR POSITION. 

THE GRAPH SIZE. XSIZE*YSJZE* DOES NOT INCLUDE LABELS AND ANNOTATION. 
AN ADDITIONAL SPACE OF ONE-HALF INCH SHOULD BE ALLOWED FOR 
THIS PURPOSE BELOW THE X-AXIS, TO THE LEFT OF THE Y-AXIS, AND 
ABOVE THE GRAPH. I.E. THE TOTAL SPACE REQUIRED IS XSIZE*. 5 


BY YSIZE+1. 

XO, YO, XSIZE, AND YSIZE SHOULD BE CHOSEN TO ALLOW FOR THE LENGTH 
OF THE PLOTTED VECTORS. 1.6. IF THE MAXIMUM LENGTH OF THE 
PLOTTED VECTORS IS Z INCHES, THEN THE DISTANCE BETWEEN X0 
AND MIN(XCI)) ALONG THE X-AXIS SHOULD BE , GE . Z, AND THE 
DISTANCE BETWEEN ( XO + DXtXS I ZE ) AND MAX < X 1 I J > SHOULD BE 
•GE. Z. LIKEWISE FOR THE Y-AXIS. 


DIMENSION X(l),m),R{.l),THETA(l), I T I TLE Cl > , L ABELX < 1 > , L ABEL Y < 1 ) 
DIMENSION MSG(9)*XX(5),YY(5) 

DATA DIV/10.0/ 

Data MAXCRS, VMIN, XARR, YARR,LES,IGN/100 , .06, -.03, .02* 60 558/ 
c 

C COUNT THE CHARACTERS IN LABELX, DRAW X-AXIS WITH ANNOTATION BELOW. 
KOUNT* -NCHARS ( LABELX, MAXCRS) 

CALL AX IS( 0 • » 0 . , LABELX, KOUNT , XSIZE, 0.0,XO,DX,DIV) 

C YAXIS WITH ANNOTATION TO - THE LEFT. 

KOUNTbNCHARS (LABELY, MAXCRS) 

CALL AXISCO. ,0.,L ABEL Y.KOUNT, YSJZE ,’90.0, YO.DY.D IV) 

C WRITE TITLE ABOVE GRAPH, CENTERED ALONG LENGTH OF GRAPH. 

CALL TITLEtO., YSIZE*. 2, XSIZE, .21,0., I TITLE) 

C COMPUTE SCALE FACTOR FOR VECTOR MAGNITUDES, 

DVDR* VREF /RREF 

C COMPUTE MAGNITUDE CORRESPONDING TO MINIMUM VECTOR SIZE. 

RM I N=VM I N/DVDR - - . 
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PREPARE MESSAGE ABOUT VECTOR SIZES. LESIGN CONTAINS THE CODE 
FOR A LESS-THAN-OR-EQUAL SIQ N .'. FOLLOWED BY THE CODE: FOR A SPACE . 

ENCODE <80,20, MSG ( 1 ) ) VREF-, RREF * LES I GN, RM I NW-MlN' ’■ 

20 FORMAT ( *VECTOR *,F4.2,* INCHES LONG = *,E9.2V*. VALUES *,R2, 
3 * ARE*, F4 , 2, * INCHES LONG.*) 

WRITE MESSAGE UNDER TITLE* -•.GEN,TERED--ALCN.G- -LENGTH .OF GRAPH. ‘ 

MSG ( 9 ) = 0 ... ... ... 

CALL T I TLE ( 0 . » YS I ZE+ . 0 5,’XS IZ6i . 1, 0 . , MSG ) 

COMPUTE LOCATION OF XsQ ALONG X-AXIS. IF X=0 IS ON GRAPH, DRAW 
DASHED LINE TO INDICATE ITS POSITION. 

XZERO* -XO/DX 

IF( (XZERO.GE. ,01) .AND. (XZERO.LE. (XSIZE-. 0-10 ) VCALL- DASHL IN(XZE 
1 0, , XZERO, YSIZE, .08) 

DO THE SAME FOR Y*0 ALONG Y-AXIS, 

YZERO* -YO/DY 

IFUYZERO.GE. .01) .AND. CYZERO.LE. <YSIZE-.01)))CALL DASHL I N { 0 . , 
3 YZERO.XSIZE, YZERO, . 0«) 


* i R2 » E9 „2, 


IS ON GRAPH, 


(XSIZE-..010 ) YCALL- DASHL I N (XZERO', 


(YSIZE-.01)))CALL DASHLINtO., 


.TH.IS WILL^BE'TAIL OF VECTOR. 


VMIN 


VM I N', 


THIS. IS BOTH'SECOND AND LAST 


ARROWHEAD POINTS. THESE ARE 3RO' 


THIS IS THE ALGORITHM FOR. PLOTT'l NG. THE ’ VECTOR- <F'I ELD 
DO100I=l. N 
SINTH*SIN(THETA( I ) ) 

COSTH = COS(THETA( I ) ) ....... 

COMPUTE POSITION OF POINT ON . PLOT , . . TH.I S WILL-BE'TAIL OF VECTOR. 

XX ( 1 )■( X( I ) -X0 >/DX 

YY(1)*( Y( I )-Y0>/DY * ■ . V 

COMPUTE LENGTH OF VECTOR ON PLOT. SET TO VMIN IF L‘T VMIN- 
RT*R ( I ) *DVDR ‘ 

IFIRT.LT. VMIN)RT=VMIN 

COMPUTE POSITION OF HEAD OF VECTOR. THIS. IS BOTH-'SECOND AND LAST 
POINT USED IN DRAWING ARROW.- ’ lasi 

XX(2)*XXC1)+RT*C0STH 

XX(5)aXX(2) 

YY(2)*YY(1)+RT*SINTH 

YY(5)«YY(2) 

COMPUTE POSITION OF ARROWHEAD POINTS. THESE ARE SRn'AND 4TH IN 
DRAWING SEQUENCE. 

ysth=yarr*sinth 

xsth*xarr*sinth 

XCTH*XARR*COSTH 

YCTHsYARR*COSTH 

XX(3)«XX(2)+XCTH-YSTH 

XX<4)*XX<2)+XCTH+YSTH 

YY(3)*YY<2)+YCTH+XSTH 

YY(4)*YY<2)-YCTH+XSTH 

SET INDICES FOR DRAWING ARROW FROM TATL'T.O HEAD. 

KaO 
L = 1 

GET CURRENT PEN POSITION. 

CALL WHERE(XNOW,YNOW, STEPS) 

DETERMINE WHETHER MOVING TO HEAD OR JA-IL WILL TAKE FEWER PLOTTER 

commands, since each command can cause movement in x and y 

DIRECTIONS SIMULTANEOUSLY, WE NEED TO KNOW THE MAXIMUM OF THE X AND 

Y movements required for each point. 

D1SAMAXKA0S(XNOW-XX(1)),ABS<YNOW-YY<1)) ) 

D2 = AMAX1(ABS(XN0W-XX(2)),aBS(YN0W-YY(2) ) ) > 

I F ( D2 . GT . Dl ) GO TO 200 - . - 


HEAD. 
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C IF TAIL IS CLOSER DRAW ARROW FROM TAIL TO HEAD , IF HEAD IS CLOSER, 

C CHANGE K AND L TO DRAW ARROW. FROM- HEAD TO TA"IL. 

K = 6 
L» -1 

C LIFT PEN BEFORE MOVING TO ARROW, MOVE TO ARROW. THEN LOWER PEN AND 

C DRAW ARROW IN FOUR LINE SEGMENTS. IPEN»3 LIFTS THE PEN. 

C IPEN*2 LOWERS THE PEN, 

200 IPEN«3 

DO 300Jsi»5 
KsK + L 

CALL PLOT ( XX ( K ) , YY ( K ) , IPEN ) 

IP£N=2 

300 CONTINUE 
100 CONTINUE 
RETURN 
End 

SUBROUTINE CONTOUR ( Z, KD I M, 

3 M.N,MM,NN,XA,X8,YA,YB,XG,YG>NCL,CL; I T I TLE , LABELS. LABEL Y, FX, FY , KP ) 
DATA TWOPI/6. 28318530717958/ 

COMMON/POLARC/RS,RO« THS-, TH0 
COMMON/INDICES/MROW,NCOL*MMROW,NNCOL ,kpol 
COMMON/XYBNDS /XM1N, XMAX, YMINf YMAX,XS I2E, YSIZE, 

1HX,HY,XS,XSS, YSiYSS,FXA,FYA 
COMMON/CLEVELS/NLVLS,NLV,CLEVEL(50) 

COMMON/CAVIN/IDIM,DUM(4035) 

DIMENSION Z(l) 

DIMENSION CL ( 1 ) 

ZU,J) IS THE ORDINATE AT POINT X(J), YU) 

MXN IS THE SIZE OF THE CALCULATED X-Y GRID 

MMXNN IS THE SIZE OF THE EXPANDEDCBY INTERPOLATION) X-Y GRID 
XA,XB,YA,Y8 ARE THE MINIMUM AND MAXIMUM VALUES 
OF X AND Y. 

XG IS THE WIDTH OF THE GRAPH IN INCHES. 

YG IS THE HEIGHT OF THE GRAPH IN INCHES. 

NCL IS THE NO. OF CONTOUR LEVELS 
CLU) ARE THE CONTOUR LEVELS 

ITITLE CONTAINS THE PLOT TITLES IN 80 BCD CHARACTERS, 

PLOT NAME IS FIRST 4 WORDS, 

X-AXIS LABEL IS. NEXT 3 WORDS, 

Y-AXIS LABEL IS NEXT 3 WORDS'. 

THE XU) ARE ASSUMED TO BE EQUALLY SPACED, AND 
LIKEWISE, THE YU). 

FX IS THE FUNCTION TO BE PLOTTED ALONG THE X-AXTS. 

FY IS THE FUNCTION TO BE PLOTTED ALONG THE Y-AXIS. 

I D I M = KD I M 
MROWsM 

NCOL*N 

MMROWcMM 

NNCOL=NN 

KPOL=0 

IF<KP.NE.0)GO TO 50 
XMIN=XA 

XM AX*X8 

YMIN=YA 

YMAX=YB 

GO TO 55 
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50 XM IN=-YB 
XMAX=YB 
YM I N=XM I N 
YMAX=XMAX 
THOsXA 
RO*YA 

THS=(XB-XA) /FLOAT (NNCOL-1) 
RSs{ YB-YA) /FLOAT (MMROW-i) 
KP0L=1 
55 CONTINUE 
XSIZE«XG 


YSIZE=YG 

NLVLSaXABSF(NCL) 
CALLPLOT ( 0 , - .5* (li . - YSIZE-) » 3 ) - 

I F { NCL ) 1 , 9 , 9 ' 

1 CLEVEL=HX=Z 

L s 0 

D015 I *1» NCOL 

DO 7 J = 1 , MROW 

. L = L + 1 

IF(Z(L).LT.CLEVEL)4»5 

4 CLEVEL=ZCL) 

5 IFCZIL) .GT.HX)6,7 
* HX«sZ(L) 

7 CONTINUE 
15 UL-M+IDIM 

HX=(HX-CLEVEL)/FLOATF(NLvLs-1) 

D08I*2,NLVLS 

8 CLEVELU)»CLEVEL( I-Dt-HX 

QOTOll 

9 D010 I *1, NLVLS 

10 CLEVEL (I)sCL(I) 

11 HX*(XMAX-XMIN)/FL0ATF{NC0L-1) 

HYC( YMAX-YMIN)/FLOATF(MROW«l) 
XSB(XMAX-XMIN)/FL0ATFCNNC0L-1) 

YS=( YHAX-YMIN)/FL0ATFCMMR0W-1) 

FXA = FX ( XM I N ) 


2 

3 


FYA=FY< YMIN) 
XSS=XQ/(FX(XMAX)-FXA) 
YSSsYG/(FY(YMAX)-FYA) 
CALLINTERPtZ, IDIM) 

D03NLV=1, NLVLS 
CALL SCAN ( Z > FX j F Y ) 


1F(KPOL.EQ.O)GOTO 1 ITI TLE, LABELX. LABELY'. FX, FY , 

XCENTcxSI ZE* , 5 

YCENTe YS I ZE* . 5 

RZERO*XCENT*RQ/YB 

RMAXsXCENT 

THETAlcXB 

IFCTHETAI.GT.TWOPI )THETAl«TWOPI+AHOE(THBTAi,TWOPf ) 

IFCRZERO.GT. .DCALL ARC { XCENT, YCENT , RZERO, THO , THPTA1 , 1 ) 

CALL ARC(XCENT, YCENT, RMAX, THO, THETAl,!) 

THH=TH0 

K=2 

IF<ABS(THETA1-(TWOPUTHO) ) .LT, .0 01)K=1 
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001001 = 1 , K 
S I NTH*S I N ( THH ) 

C0STH*CQS(THH) 

X0=XCENT+RZ£RO*C0STH 

YO=YCENT+RZERO*SINTH 

X1=XC£NT+RMAX*C0STH 

yi=ycent+rhax*sinth 

Call DASHLIN(X0,Y0,X1, Yi, 4 ) 

TNHsTHETAl 
100 CONTINUE 

CALL DASHLIN(XCENT,YCENT,0,, YCENT, .25) 

CALL DASHLIN(XCENT,YCENT,XCENT, YSIZE, .25) 
CALL DASHLINIXCENT, YCENT, XCENT.Q., .25) 

CALL DASHLIN( XCENT. YCENT, XSIZE, YCENT , .25) 

200 CALLPLOT ( I NTF < XSI Z£+,6 . ) ,■ -11 , , -3 ) 

RETURN 

End 

SUBROUTINE LABEL ( I T l TLE, LABELX , LABEL Y, FX, F Y ) 
COMMON/TEMP/ZClOl) 

C0MM0N/XYBNDS/XA,X8» YA, YB.XSIZE, YSI2E,HX,HY, 
3 XS,XSS,YS,YSS,FXA,FYA 

common/indices/h,n,mm,nn,kpol 

COMMON/CLEVELS/NCL,NLV,CL(50) 

DIMENSION ITITLE(l) , LABELX ( 1 ), LABELY ( 1 ) 

DATA IS/18/ 

J =0 

X = XA 

P = 0 

G*XSIZE-.9 

D010 I =1 , NN 

XG=XSS*(FX(X)-FXA) 

IF(XG.GE.G)3,4 

3 X sXB 

XG=XSIZE 

G0T05 

4 I F C XG.GE.P)5,10 

5 J=J+1 

Z{ J)=XG 

CALL SYMBOL<XG,-.07, . 12 , I S , 0 . , -1 ) 

7 CALLNUMBER(XG-.14,-.22, .Q7,X,0,5HE10.3) 

0 1 F ( X . EQ . X 8 ) 11 * 9 
9 P = XG*,9 

10 X=X+XS 

11 CALL TITLE(0. ,-.4, XSIZE, .14,0. .LABELX) 

CALL TITLE(G., YSIZE*. 15, XSIZE, .21,0., I T I TLE) 

00121 = 1 , j 

12 CALL SYMBQL(Z( I ), YSIZE*. 07, .12, IS, 180 . , - 1 ) 

J = 0 

Y = YA 

P = 0 

G= YS I ZE - . 2 

D020 1=1, MM 

YG=YSS*(FY{ Y)-FYA) 

I F < YG . GE . G ) 13, 14 

13 YcYB 

YG=YSIZE 
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GOT 015 


14 IFCYG.GE.P)15,20 

15 JoJ+i 

Z( J)=YG 

CALL SYMBOLC-.07,YG,.12,IS,270.*.-1> 

C ALLNUMBER { -.62, YG*. 04, .07, Y,Q,5HEiO. 3) 
IF(Y.EQ.YB)21,19 

19 P* YG+ . 9 

20 YeY+YS 

21 CALL TITLE(-.7,0..,YSlZS, .14,90. ..LABELY) 

D022 1 *1 » J . . ' 

22 CALL SYM8OL<XSIZE+\07,Z(I),..12, IS.90.,-1) 
YI*.5*YSIZE«-.1*FL0ATF(NCL) • 

.DY=,2. 

CALLNUMBER(XSIZE+.S. YI, .14, NCL , 0 , 2HI 2 > 
CALLSYMBOL(XS1ZE+.80,YI, .14.14, HCONTCUR LEVELS, f) , i~4 ) 
YI»YI-DY 

23 D024I«1.NCL ' 

CALLSYMB0LCXSIZE+.8, YI+. 05,0.10.-1-1 ,0,-1) 

CALL NUMBER<XSIZE+1.0,Yl,0.i05»CL U ) , 0 . 5HES 5 .5 ) 

24 YI*YI-DY 
RETURN 
END 

SUBROUTINE I NTERP < AM, IDIM ) 

DIMENSION AM(IDIM.I) 

COMMON/ TEMP/Z(101) 

COMMON/XYBNDS/XA,X8,YA,Y8,XG, YG.HX.HY, 

1XS.XSS.YS, YSS.FXA.FYA 
COMMON/INDICES/M, N, MM, NN ,KPOL 
ZFUNCV)=A0*A1*V+A2*V**2 
N1»N"1 

M1=M-1 

IF ( N-NN >16,15.14 

16 006 I =1, M 
D01J=1,N 

1 Z(J)=AM(I,J) 

X Y = X A 

K=i 

TsHX+XA • 

D03 J=2, N1 

CALLF I T ( J, T, MX, AO , Al, A2 ) 

2 AM ( I , K ) =ZFUN ( X Y ) 

XY=XY+XS 

K = K + 1 

IF(XY-T>2«3,3 

3 TsT+HX 

4 I F ( K-NN ) 5, 5 , 6 

5 AM ( I , K ) =ZFUN ( X Y ) 

K = K + 1 

XY=XY+XS 

- ■ GOTO<* 

6 CONTINUE 

15 I F ( M-MM >17,13,14 

17 D012I»1,NN 
D07J=1,M 

7 Z< J> =AM( J, I ) 
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X Y = Y A 


K = 1 


T»HY+YA 

D09J=2,M1 

CALLFITC J,T,HY V ,A0,.A1,A2> 
0 AM<K, I)sZFUN(XY) 


XY=XY+YS 


K = K+‘l - 


9 TxT+HY 

10 I F ( K-MM ) 11 , 11 , i 2 

11 AM ( K > I ) = ZFUN ( X Y ) 


.IF(XY-T)8,«,9 


K = K + 1 


XYbXY+YS 


QOTOIO 


12 CONTINUE 

13 RETURN 

14 ST0P12 
END 

SUBROUTINE SCAN ( AM , FX , F Y > ‘‘ 

C AM IS THE MATRIX TO BE CONTOURED. MT AND NT ARE ITS X AND ' 
C CL ( NLV ) IS THE CONTOUR LEVEL. 

C THE N ( X # Y ) VALUES OF ONE CONTQUR LINE ARE PI OTTEO WHEN 
C THEY ARE AVAILABLE. ' 

DIMENSION AM < 1 ) 

COMMON /CLEV£lS/NCL»NLV<CL<5Q) 

COMMON /)INDICES/DUM(2),MT*NT»KPQL 
COMMON/CAVIN/DIM, IX, IY, idx,idy» iss, 

1 NP,N,CV, IS, ISO* 1X0, IYO.DCP. 

2 INX(6), INY(8),REC(S00),X(1603) ,Y(16Q3) 

TYPE INTEGER REC ,DIM 
DATA ( I NY= 

DATA( I NX= -1,-1, 0,1, 1.1,0 *-l) 

NPs I SS=0 
C V = CL ( NLV ) 

MT1=MT-1 

NT1bNT-1 
DO 110 1=1, MT1 
I F ( AM < I ) -CV >55, 110 , HO 
55 IF < A M < 1+1) -CV5110, 57,5V 

57 I X0 » I X= I +1 

I Y0= I Y= I SO ■ I S = 1 


I DX = *\1 


CALL TRACE<AM,FX,FY) 

110 CONTINUE 
J*MT-DIM 

D020 I =1 * NTl 

\ 

IFCAM( J)-CV)15, 20,20 
15 I F ( AM < J+DIM)-CV)20il7,17 
17 IX0=IX=MT 

I YO = I Y= I +1 


IDY = 8 


J* J+D I M 


I D X = 0 


IDY=-1 


I SO * J <5-7 


DIMENSIONS. 
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CALL TRACE ( AM » FX» FY ) 

20 CONTINUE 

j*mt+nti*dim+i 

D030 l*l»HTi 

' J«J-J 

IF(AM(J)-CV)25,30»30 
25 I F f AM ( J-l ) -CV ) 30 » 27 # 27’ ' ‘ 

27 I XO« I X*MT " I 

!Y0=IY*NT 

.mn , . . 

I D-Y 

CALL TRACE ( AM > FX,,FY ) 

30 CONTINUE 

J*NT*D I M + l . 

do4oi=i,nti 

J* J-D I M 

I F < AM C J}-CV>35,40, 40 
35 IF(AM(J-DIM)-CV)4G,37,37 
37 IX0*IX*1 

I YO* l Y = NT- I 

I DX*0 

IDY=: 


call tracecam,fx,fy> 

40 CONTINUE 
ISSal 

LsO 

D013J*2»NT1 

L S L+DIM 

DOiOI*l,MTl 

L = L + 1 

IF(AM<L)-CV)5, 10,10 
5 IF ( AM ( L+l ) -CV )i0 ,7,7 
7 K*L+i 

DO 9 ID = i,NP 
1 F ( REC ( ID)-K>9,10,9 
9 CONTINUE 
IXOalXal+l 

IY0=I Y=J 

IDXa-i 

I DY = 


CALL TRACE ( AM, FX> FY ) 

10 CONTINUE 
13 LaL-MTl 
RETURN 
END . - 

SUBROUTINE TRACE < AM, Fx‘, F Y ) 

DIMENSION AM ( 1 ) 

COMMON/POL ARC/RS,R0,THS,TH0 
COMMON /IN0ICES/DUH(2)«HT»NT« 

COMMON/XYBNDS/XA, X9»YA,YB,XSIZE>YSIZE> 
1XS,XSS, YS,YSS,FXA,FYA 
COMMON/CAV IN/DIM, IX, IY, IDX. IDY, ISS, 

1 NP,N,CV, IS, ISO, 1X0, IY0,DCP, 


0 

IS0MS.3 


I SO ■ I S*3 


IS0«IS»1 


KPOL 

HX/HY, 
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g I NX ( 8 ) , INY<8),REC(80a),X(1603),Y(1603> 

COMMON/CLEVELS/NCL* NLV»CL(5Q) 

TYPE INTEGER REC» DIM 
N*0 

jy=dih*< iy-d + ix- 

MY*DIH*I0y+IDX4,JY 

2 NbN+1 

If ( N-160 0 ) 3 » 3 , 32 

3 IF ( I DX ) 5 , 4, 6 

4 X<N)=FL0ATF( IY-l)+FLOATF(.IDY)*( AM(JY')-pv>-/( AM(JY)-AM(DIM*IDY*JY) ) 

Y<N)=FLOATFUX-l> 

G0T07 

5 NPsNP+1 

REC(NP)=JY 

6 Y { N ) =FLO ATF ( I X-l) +FLOATF < I DX ) * < AM ( JY > "CV ) / ( AH ( J Y > - AM ( JY+ ! DX ) ) 
X(N)=FL0ATF( IY-1) 

7 IS=IS+1 

8 IF< 18-8)10,10,9 

9 [ S* I S-8 

10 I DX* I NX ( IS) 

I DY= I NY ( IS > 

I X2= I X+ I DX 

I Y2= I Y+ I DY 

IR=IDX*IDY 

11 IF { ISS)13,l5 

13 IF < IS.NE.ISO.OR, I Y.NE. IYO,OR. IX. NE. 1X0)16,14 

14 N»N+1 

X(N)=X 

Y ( N ).s Y 

G0T073 

15 I F t 1X2)151,73,151 

151 I F <1 Y2 ) 152 >73,152 

152 IF< ( IX2.LE.MT> , AND. ( IY2.LE.NT) >16,73 

16 HY*DIM*IDY+IDX+JY 

IF ( I R ) 19 , 17,» 20 

17 IFCCV-AM(MY) >18,18,2 

18 IX»IX2 

IY-IY2 

81 I S» I S+5 

JY = MY 

GOTQ8 

19 KYsJY+IDX 

L Y*MY- I DX ' 

Q0T021 

20 KY*MY- I DY 

LY*JY+IDY 

21 DCP*(AM( JY)+AM(KY)+AM{LY)+AM(MY) )*.25 

IF(CV-DCP)23, 23,22 

22 CALL GETPT ( AM ( JY ) ) 

GO TO 7 

23 IF( IR)24,25,25 

24 I X * I X 2 

IDX=-IDX 

CALL GETPT ( AM ( KY ) ) 
l Y* I Y2 

I DY=- I DY 
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25 I Y* I Y2 


Q0TQ?6. 


IDY = - IDY 
CALL GETPT ( AM C KY ) ) 

XX* 1X2 

I DX = - I DX 

26 IHCV-AM(MY) ) 81 , 81 * 28 

28 CALL GETPT ( AM { M Y ) ) 

IF ( I R ) 29 # 30 * 3Q 

29 I X* I X+ 1 DX 

IDXa-IDX 

G0T031 

30 I Y* I Y+ 1 DY 

IDYs-IDY 

31 incV-AM(LY) )33, 33,34 

33 IS=IS-1 

JY = LY 

GOTOIO , ... 

34 CALL GETPT ( AM ( L Y ) ) 

I F ( I R-).35_, 3,6 ,-36- 

35 I Y* I Y* I DY 

G0TD7 

36 IXsIX+IDX 

G0T07 

32 PRINT103/CV 

73 I F ( KPOL . EG . 0 ) GO TO 173 
D0174I»1,N 

THETA«X( I)*THSfTH0 
R* Y { I ) *RS+R0 

X(I)sXSS*(R*COS(THETA)-FXA) 

Y< I )aYSS*(R*S IN (THETA )-FYA> 

174 CONTINUE 
GO TO 175 

173 D074 I *1 » N 

X(I )rXSS*(FX(XU)*XS + XA)-FXA) 

74 Y(I >=YSS*(FY{ Y< I )*YS+YA)-FYA) 

175 CONTINUE 

CALLSYM80L(X, Y, .0 7.NLV-1 ,0,>-l) 

D075Ul,N 

75 CALLPLOT<X( I),Y< I ),2> 

RETURN 

103 FORMAT ( 1H0 » 23HA CONTOUR LINE AT LEVEL»E13.5, 

1 41H WAS TERMINATED BECAUSE IT CONTAINED MORI, 

2 23H THAN 1600 PLOT POINTS.) 

END 

SUBROUTINE GETPT ( AM ) 

COMMON/CAV IN/DIM, IX, I Y, IDX, IDY, ISS, 

3 NP,N,CV,IS, IS0,IX0, I f Y8,DCP, 

2 I NX ( 8) , I N Y ( 8) , REC ( §0 0), X ( 1603,V, Y ('1603 ) 

NoN+l . 

Bs AM -DCP 


1 

2 

3 


Vr.5 


I F < B > 2 » 1 


GOT03 

V* . 5* < AM -CV)/8 
Y(N)=FLOATF(IX-l)+FLOATF(IDX)*V 


249 



X ( N ) ■FLOAir ( I Y«i )+FLCATF < I DY)*V 


return 

END 

SUBROUTINE FIT(I»X»H,C,B»A) 

COHMON/TEMP/Z(iOi) 

WbO . 5* ( Z ( I+1)-ZC I-i) )/H 
A»0.5*(Z( I + i) + 2U-l)-2< n-ZU n/H **2 
C=Z( I ) +X* ( X* A- W ) 

8»W-2 . *X* A 

RETURN 

END 

SUBROUTINE T I TLE (X. Y* S IZE* HEIGHT* ANGLE* ITEXT)- 
D I MENS I ON I TEXT Cl) . 

DATA SIX7.TW07/. 857142857, .285714286/ 

CHSIZE=HEIGHT*SIX7 

MAXCHS=SIZE/CHSIZE 

numchs=nchars< itext.maxchsi 

START*.5*(SIZE-CHSIZE*FL0AT(NUMCHS)+TW07*HEI9HT> 

TH*ANGLE*. 0174533 

CALL SYMBOL ( X*START*COS ( TH ) , Y+S TART*SI N < TH ) .HEIGHT, I TEXT, ANGLE, 
1 NUMCHS) 

RETURN 
END 

FUNCTION NCHARSC ITEXT.MAXCHS) 

DIMENSION I TEXT ( 1 ) 

MAXWDS=MAXCHS/10+1 
DOl I =1, MAXWDS 
K* I TEXT < I ) .AND. 77778 
I F ( K • EQ . 0 ) GO TO 2 

1 CONTINUE 
I*MAXWDS 

2 NUMCHS=10*I 
D03J=1, I 
L* I - J + l 

KTESTsITEXTCL) 

D03M*1,10 
KnKTEST. AND.77B 

IF( (K.NE.O) . AND, (K.NE.55B) )GO - TO -4 
KTEST*ISHIFT(KTEST,54) 

NUMCHS=NUMCHS-1 

3 CONTINUE 

4 NUMCHS=MINO (NUMCHS, MAXCHS) 

NCHARS=NUMCHS 
RETURN 
END 

SUBROUTINE DASHL I N ( XO , YO , XI > Yl, DASH, 

C 

C DRAWS A DASHED LINE FROM (XO.YO) TO<Xl,Yl>. -JHB 
C BETWEEN THEM ARE APPROXIMATELY OF ’LENGTH- -DASH-. 

C ADJUSTED SUCH THAT THE LINE IS COMPOSED OF EQUAL 
C AND BEGINS AND ENDS WITH A DASH. 

C ALL PARAMETERS ARE IN FLOATING POINT INCHES. 

C 

XNOW=XO 
YNOW=YO 
DX=X1-X0 


DASHES AND SPACES 
THIS LENGTH IS 
LENGTH DASHES, . 
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c 

c 

c 

c 

c 

c 

c 


DYsYl-YQ 

D«SQRT (DY*DY+DX*DX ) 

NDASH»2*( IFIX(D/DASH)/p)+l 
DXoDX/FLOAT(NDASH> 

DY=DY/FLOAT(NDASH) 

CALL WHERE(XN, YN, STEPS) 

Di*AMAXl( A8SCXN-X0 ) * ABS ( YN- YO' >‘) 
D2*AMAX1(ABS(XN-X1),ABS(YN-Yi) ) 

IF ( D2 . GT . Dl ) GO TO 2 
XNOW=Xl 
YMOW=Yl 
DXs-DX 
DY»-DY 
2 I PEN = 3 

CALL PLOTCXNOW, YNOW, IPENl 
D01 I =i , NDASH 
XNOW=XNOW+DX 
YNOW=YNOW+DY 
I PEN=5- I PEN 

CALL PLOTCXNOW. YNOW, IPEN) 

1 CONTINUE 
RETURN 
END 

SUBROUTINE ARC ( XO > YO , R , THOj.THI > ID ASK ) 

** * * i n 


DRAWS AN ARC OF RADIUS 
THETA*TH1, TH0.LT.TH1. 
IF IDASH.NE.D. THE ARC 


R A80UT ( X 0 » Y 0/) 
IF IDASH.EQ.'Q'. 
WILL BE DASHED. 


FROM- TWETA*TH0 TO 
THE ARe WILL BE SOLID, 


XO, YO, AND R ARE IN FLOATING POINT INCHES'. 
THP AND TH1 ARE IN RADIANS.. 


DELTH*2 . *AS I N ( . 05/R) 
THETA sTHO 
X*XO+R*COS( THETA) 
Y*YO+R*SIN(THETA) 
X1bXO*R*COS(TH1) 
Y1»Y0+R*SIN( THl ) 

IPEN=3 

1 CALL PLOT ( X, Y , + PEN ) 
THETA*THETA+DELTH 

I PEN=5- 1 PEN 

I F ( I DASH . NE • 0 ) GO TO 2 

!PEN=2 

2 XsXO+R*COS( THETA) 
YnYO+R*SIN(THETA) 
IFCTHETA.LT.THDGO TO 1 
CALL PLOT ( XI , Yl, I PEN ) 
RETURN 

END 



IDENT 

SEEK 


ENTRY 

SEEK 

if 

VFD 

42/OLSEEK, 18/A 

SEEK 

BSS 

1 .ENTRY' LINE 


SB7 

1 


SB6 

-B7 


SA1 

B1 ,X1«6 
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S4 D D 
S20 0 
S500 

S60 3 


S 80 0 
S30 0 


S703 


SA2 

B2 

SXO 

B7 

SA3 

B3 

FX4 

X 

1 

CM 

X 

SX7 

X3 

ZR 

X4.S200 

SX6 

XO 

SA2 

X3+B? 

PL 

X4.S300 

FX5 

X2-X1 

ZR 

X5.S500 

FX3 

X7 + X0 

1X4 

X3-X6 

PL 

X5 , S603 

SB7 

BO 

SX7 

87 

SA7 

B4 

EQ 

bq.bo.seek 

1X7 

X4-X0 

FX5 

X3 + X6 

AX2 

B7,XS 

SB5 

X2 + B6 

SA4 

B5 + 82 

ZR 

X7 » S80 0 

FX5 

X4-X1 

BX7 

X3 

LX3 

X2 

1X4 

X2-X6 

PL 

X5.S603 

BX3 

X7 

SX6 

X2 

1X4 

X3-X2 

EO 

B0.B0.S603 

SA6 

B4 

EO 

BO. BO. SEEK 

FX4 

X2-X1 

ZR 

X4.S500 

PL 

X4.S400 

FX3 

X7 + X0 

1X4 

X3-X6 

1X7 

X4-X0 

FX5 

X3+X6 

AX2 

87, X5 

SB5 

X2 + B6 

SA4 

B5+B2 

ZR 

X7.S800 

FX5 

X1-X4 

8X7 

X3 

LX3 

X2 

1X4 

X2-X6 

PL 

X5.S703 

BX3 

X7 

SX6 

X2 

1X4 

X3-X2 

EQ 

B0.B0.S703 

END 



. X2*ET ( 1 ) 

.SET X0«1 
.X3*N 
. ET( 1 ) -E 
,X7«N 

, IF X4* 0 . GOTOS2UO 
. X6*l* I TOP 
,X2"ET ( IBOT > 

.IF X4=+ » GOTO §300 
. X5*ET ( I SOT ) -E 
.if x5*o » goto ssoo 

. ISOT=N+l 
, X4* I BOT- I T OP . 

.IF X5s+, GOT OS603 
.SET 1*0 FOR ERROR 
.SET 1*1 
. OR I*N 
.RETURN 

, IBOT+ITQP 
.DIVIDE BY 2 
. 1 * 1-1 
, X4*ET ( I ) 

. IF X7*0 * GOTO SSOO 
. X5*ST ( I > -E 
..STORE. I BOT 
,X3*I*IB0T 
, X4* I BOT- I T p p 5 

.RESTORE X3= I BOT 
. X6* ITOP* I 
. X4* I BOT- 1 TOP 


. X4*ET ( I BOT ) -E 


. IB0T=N+1 
. X4* IBOT- I T OP 

..IBOT+ITQP 
.DIVIDE BY 2 
. 1 * 1-1 
, X4*ET ( I ) 

.IF X7*0. GOTO S8 00 
, X5*E-£T ( I ) 

.STORE IBOT 
. X3* I * I BOT 
. X4* I BOT- I TOP 

.RESTORE X3? IBCT 
. X6“ I TOP* I 
. X4* I BOT- I T OP 
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